Losing paragraph borders when using foreground printing in Word 20

[Tim]

When I print to file using "Adobe PDF" driver, I have the following issues:

1. If I use foreground printing (preferred since Word has some page problems
with it off) to create the Postscript print-stream, I lose some of the
paragraph
borders around my text.
2. If I use background printing, I need some way of delaying the call to
distiller
otherwise distiller starts to process the print-stream before it is completed.

Thanks for all help.

Tim Shaffer

EXAMPLE 1
'Foreground printing which works but loses paragraph borders
ActiveDocument.PrintOut Background:=False, Append:=False,
Range:=wdPrintAllDocument, _
OutputFileName:=sPath & "\" & sPrefix & ".ps", _
Item:=wdPrintDocumentContent, Copies:=1, PageType:=wdPrintAllPages,
Collate:=True, PrintToFile:=True, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0,
PrintZoomPaperHeight:=0
DistillFile sInputPS:=sPath & "\" & sPrefix & ".ps", sJobOptions:="Procedure"


EXAMPLE 2
'Background printing - works only if I stop before calling Acro.FileToPDF
ActiveDocument.PrintOut Background:=True, Append:=False,
Range:=wdPrintAllDocument, _
OutputFileName:=sPath & "\" & sPrefix & ".ps", _
Item:=wdPrintDocumentContent, Copies:=1, PageType:=wdPrintAllPages,
Collate:=True, PrintToFile:=True, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0,
PrintZoomPaperHeight:=0
DistillFile sInputPS:=sPath & "\" & sPrefix & ".ps", sJobOptions:="Procedure"


Sub DistillFile(sInputPS As String, _
Optional sOutputPDF As String = "", _
Optional sJobOptions As String = "Standard")
Dim Acro As ACRODISTXLib.PdfDistiller
Set Acro = New ACRODISTXLib.PdfDistiller
Acro.bShowWindow = True
Acro.FileToPDF sInputPS, sOutputPDF, sJobOptions
If Dir(sInputPS) <> "" Then Kill sInputPS 'Delete PostScript
print-stream
End Sub