GERAR ARQUIVO DOC PARA PDF

Option Explicit

Const c_strWORDDOCDir As String = [Ô]f:\cm7_dbs\easymove\documents\[Ô]
Const c_strWORDDOC As String = [Ô]testpdf.doc[Ô]
Const c_strPDFDOCDir As String = [Ô]f:\cm7_dbs\easymove\PDF\[Ô]
Const c_strPDFExt As String = [Ô].PDF[Ô]
Private WithEvents cPDFCreator As PDFCreator.clsPDFCreator
Private cPDFCreatorError As clsPDFCreatorError
Private cPDFCreatorOptions As clsPDFCreatorOptions

Private Sub Command1_Click()

Dim strPDFFileName As String
Dim lngPosit As Long
Dim strDefaultPrinter As String

strDefaultPrinter = Printer.DeviceName

lngPosit = InStrRev(c_strWORDDOC, [Ô].[Ô])
strPDFFileName = Mid(c_strWORDDOC, 1, lngPosit - 1) & c_strPDFExt
Set cPDFCreator = New clsPDFCreator
Set cPDFCreatorOptions = New clsPDFCreatorOptions

With cPDFCreatorOptions
.AutosaveDirectory = c_strPDFDOCDir
.AutosaveFilename = strPDFFileName
.UseAutosave = 1
.UseAutosaveDirectory = 1
.AutosaveFormat = 1 [ô]PDF
End With
Set cPDFCreator.cOptions = cPDFCreatorOptions

[ô]Am storing default printer to restore it later
strDefaultPrinter = Printer.DeviceName
With cPDFCreator
.cDefaultPrinter = [Ô]PDFCreator[Ô]
.cClearCache
.cPrintPDFCreatorTestpage
.cPrinterStop = False
[ô]Following line was just a gesture at trying
[ô]anything that would work
Printer.Print
.cPrintFile c_strWORDDOCDir & c_strWORDDOC
.cClose
End With
Set cPDFCreator = Nothing
Set cPDFCreatorOptions = Nothing
End Sub