vb - Create .pdf from .doc

Could you give me the vb6 code?
That would help a lot.

could it just be setting the background property?

now word is closed before the print is finished
msDoc.PrintOut(, , , pdfDoc)

try
msDoc.PrintOut(false, , , pdfDoc)

hope this helps a bit

Option Explicit

Private WithEvents myPDFCreator As PDFCreator.clsPDFCreator
Private pdfError As PDFCreator.clsPDFCreatorError
Private pdfOpt As PDFCreator.clsPDFCreatorOptions
Private Const maxTime As Long = 20
Private readyState As Boolean

Private Sub commands_Click(Index As Integer)
   Select Case Index
       Case 0
           PrintIt 0
   End Select
End Sub

Private Sub Form_Load()
   
   Set pdfError = New PDFCreator.clsPDFCreatorError
   Set myPDFCreator = New PDFCreator.clsPDFCreator
   'Set pdfOpt = New PDFCreator.clsPDFCreatorOptions
   
   With myPDFCreator
       '.cVisible = True
       If .cStart("/NoProcessingAtStartup") = False Then
           If .cStart("/NoProcessingAtStartup", True) = False Then
               commands(0).Enabled = False
               Exit Sub
           End If
         '.cVisible = True
       End If
       ' Get the options
       Set pdfOpt = .cOptions
       .cClearCache
       'readyState = False
       
   End With
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
   If readyState = False Then
       DoEvents
       myPDFCreator.cClose
   End If
   DoEvents
   myPDFCreator.cClose
   Set myPDFCreator = Nothing
   Set pdfError = Nothing
   Set pdfOpt = Nothing
End Sub
Private Sub PrintIt(ByVal Filetyp As Long)
       Dim fname As String, fi As String, DefaultPrinter As String
       Dim opt As New PDFCreator.clsPDFCreatorOptions
       With Me.CommonDialog1
           '.MultiSelect = False
           '.CheckFileExists = True
           '.CheckPathExists = True
           .Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
           .ShowOpen
       End With
       If CommonDialog1.FileName <> "" Then
           fi = (CommonDialog1.FileName)
'            If CommonDialog1.Name <> "" Then
'                If InStr(CommonDialog1.Name, ".", VbCompareMethod) > 1 Then
'                    fname = Mid(fi.Name, 1, InStr(CommonDialog1.Name, ".", CompareMethod.Text) - 1)
'                Else
'                    fname = CommonDialog1.Name
'                End If
'            End If
           If Not myPDFCreator.cIsPrintable(fi) Then
               MsgBox "File is not printable!", vbExclamation
               Exit Sub
           End If
           Set opt = myPDFCreator.cOptions
           With opt
               .UseAutosave = 1
               .UseAutosaveDirectory = 1
               .AutosaveDirectory = "C:\" 'fi.DirectoryName
               .AutosaveFormat = Filetyp
               If Filetyp = 5 Then
                   .BitmapResolution = 72
               End If
               .AutosaveFilename = "alvin"
           End With
           With myPDFCreator
               .cClearCache
               DefaultPrinter = .cDefaultPrinter
               .cDefaultPrinter = "PDFCreator"
               .cPrintFile (Me.CommonDialog1.FileName)
               readyState = False
               .cPrinterStop = False
           End With
           Set myPDFCreator.cOptions = opt
           With Timer1
               .Interval = maxTime * 1000
               .Enabled = True
               Do While Not readyState And .Enabled
                   DoEvents
               Loop
               .Enabled = False
           End With
           If Not readyState Then
               MsgBox "Creating printer test page as pdf." & vbCrLf & vbCrLf & _
                "An error is occured: Time is up!", vbExclamation
           End If
           myPDFCreator.cPrinterStop = True
           myPDFCreator.cDefaultPrinter = DefaultPrinter
       End If
       Set opt = Nothing
   End Sub

Private Sub mypdfcreator_eReady()
   myPDFCreator.cPrinterStop = True
   readyState = True
End Sub

Private Sub mypdfcreator_eError()
   Set pdfError = myPDFCreator.cError
End Sub

Private Sub Timer1_Timer()
   Timer1.Enabled = False
End Sub


i hope this code give u idea...

game-master

that's interesting game-master, you do all the printing outside of word

that may be even more stable too