>>>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 >>>>>>