>FUNCTION PrintPDFReport > LPARAMETERS lcReport, lcOutputFile, lcExtraReportClauses > LOCAL lcOldPrinter > > * save old printer, will be restored in the end of routine > lcOldPrinter = SET("printer",2) > * create object of the class > oPDFC = CREATEOBJECT("PDFCreator.clsPDFCreator","pdfcreator") > * setup class parameters > oPDFC.cStart("/NoProcessingAtStartup") > oPDFC.cOption("UseAutosave") = 1 > oPDFC.cOption("UseAutosaveDirectory") = 1 > oPDFC.cOption("AutosaveFormat") = 0 > * select PDFCreator as a default printer > DefaultPrinter = oPDFC.cDefaultprinter > oPDFC.cDefaultprinter = "PDFCreator" > oPDFC.cClearCache > ReadyState = 0 > oPDFC.cOption("AutosaveFilename") = JUSTFNAME(lcOutputFile) > oPDFC.cOption("AutosaveDirectory") = JUSTPATH(lcOutputFile)+'\' > oPDFC.cprinterstop=.F. > > lcExtraReportClauses=IIF(EMPTY(lcExtraReportClauses),"",lcExtraReportClauses) > > REPORT FORM (lcReport) &lcExtraReportClauses TO PRINTER NOCONSOLE > > INKEY(5) > * restore the old printer > SET PRINTER TO NAME (lcOldPrinter) > oPDFC.cDefaultprinter = DefaultPrinter > oPDFC.cClearCache > oPDFC.cClose() > RELEASE oPDFC >ENDFUNC >>