>dofoxyrep(oReport.vesrfaktur,.T.,.F.,cFDruck4) >IF i = 1 > dopdf(oReport.vesrfaktur,pnRGNummer,"RG") >Endif > >FUNCTION dofoxyrep >LPARAMETERS cReportname, lDirect, lListener, cPrinter >LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.App" >loReport = CREATEOBJECT("PreviewHelper") >loReport.AddReport(cReportname) &&' FRX File, Clauses >loReport.lUseListener = lListener >loReport.lDirectPRINT = lDirect >loreport.nButtonsize = 1 >IF LEN(ALLTRIM(cPrinter)) > 0 > loReport.cPrintername = ALLTRIM(cPrinter) >Endif >loReport.RunReport() >loReport = Null >Endfunc > >Function dopdf >LPARAMETERS cReportname, nNummer, cMode >cMode = cMode + "_" >cPDFName = oPfade.cAltReportpath + cMode + PADL(nNummer,10,"0") + ".pdf" >lret = pdf2save(cPDFName,cReportname) >IF ! lRet > MESSAGEBOX("Fehler beim Erstellen des PDF!",48,cProgtitle) >ENDIF >RETURN (lRet) >Endfunc > >FUNCTION pdf2save >LPARAMETERS cOutputfile,cReportname >LOCAL loReport as "PreviewHelper" OF "FoxyPreviewer.App" >loReport = CREATEOBJECT("PreviewHelper") >WITH loReport as ReportHelper > .lpdfembedfonts = .T. > .AddReport((cReportname), "NODIALOG") > .cDestFile = cOutputfile &&' Use to create an output without previewing > .RunReport() >ENDWITH >loReport = NULL >Endfunc >>