DO FOXYPREVIEWER.APP _Screen.oFoxyPreviewer.cLanguage = "GERMAN" _screen.Visible= .T. ccom="REPORT FORM "+oReport.vesrfaktur+" PREVIEW" &ccomFrom the preview window, generate the pdf several times and verify what happens. If everything goes right, check this default behavior compared with your customization. If still you get the same problem, check using a different default printer than the "cFDruck4"
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 EndfuncCan anyone tell me, if and what I might do wrong?