oPDFJob = CREATEOBJECT("PDFCreator.clsPDFCreator", "PDFCreator_") oPDFJob.cStart("/NoProcessingAtStart") OldPrinter = oPDFJob.cDefaultPrinter oPDFJob.cVisible = .F. oPDFJob.cDefaultPrinter = "PDFCreator"Here is how to create the document
WITH PDFJob .cClearCache .cVisible = .F. .cStart("/NoProcessingAtStart") .cOption("StartStandardProgram") = 0 .cOption("StandardAuthor") = “JOHN DOE” **Optional .cOption("StandardTitle") = <FILE NAME> **Optional .cOption("StandardSubject") = <File Subject> **Optional .cOption("AutosaveStartStandardProgram") = 0 .cOption("ShowAnimation") = 0 .cOption("UseStandardAuthor") = 1 .cOption("UseAutosave") = 1 && 0=PDF .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveDirectory") = newDir &&Directory to store pdf in .cOption("AutosaveFilename") = sTitle &&Name of the file you want to save .cOption("AutosaveFormat") = 0 .cPrinterStop = .F. .cPrintFile(ADDBS(SYS(2023))+"c:\document.doc") &&Name of the doc you want to convert ENDWITHThen I usually reset all the options back to default when finished
*** SET ALL DEFAULTS BACK TO NORMAL *** WITH PDFJob .cDefaultPrinter = OldPrinter .cStart("/NoProcessingAtStart") .cOption("StartStandardProgram") = pdfjob.cStandardOptions.StartStandardProgram .cOption("StandardAuthor") = pdfjob.cStandardOptions.StandardAuthor .cOption("StandardTitle") = pdfjob.cStandardOptions.StandardTitle .cOption("StandardSubject") = pdfjob.cStandardOptions.StandardSubject .cOption("AutosaveStartStandardProgram") = pdfjob.cStandardOptions.AutosaveStartStandardProgram .cOption("ShowAnimation") = pdfjob.cStandardOptions.ShowAnimation .cOption("UseStandardAuthor") = pdfjob.cStandardOptions.UseStandardAuthor .cOption("UseAutosave") = pdfjob.cStandardOptions.UseAutoSave .cOption("UseAutosaveDirectory") = pdfjob.cStandardOptions.UseAutosaveDirectory .cOption("AutosaveDirectory") = pdfjob.cStandardOptions.AutosaveDirectory .cOption("AutosaveFilename") = pdfjob.cStandardOptions.AutosaveFileName .cOption("AutosaveFormat") = pdfjob.cStandardOptions.AutosaveFormat .cPrinterStop = pdfjob.cStandardOptions.PrinterStop .cVisible = .T. .cStart(pdfjob.cStandardOptions.NoProcessingAtStartup) .cClose() ENDWITH RELEASE PDFJobThat should be about it. Hope this helps.