Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Foxypreviewer printed reports and pdf are different
Message
 
À
23/10/2019 16:09:37
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Divers
Thread ID:
01671639
Message ID:
01671663
Vues:
78
Thank you for the suggestion but I checked the document-properties of the pdf and the format is the same as the report.

Best regards

Thomas

>Perhaps it could be relating to the paper size (e.g. A4 vs U.S. letter) ? In >other words, printing to printer could be selecting one paper size, and >printing to PDF selects a different size.

>Hi there,
>
>I am using the foxypreviewer app to print invoices and also save them as pdf.
>But when it comes to printing the pdf of a needed "reprint", the output is slightly different and does not fit the used format for paper for invoices. Fonts seem to be slightly smallerm blank lines are not the same size as on the report.
>
>This is how I print the report
>
>
>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
>
>
>Can anyone tell me, if and what I might do wrong?
>
>Best regards
>
>Thomas
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform