Diese Seite mit anderen teilen ...

Informationen zum Thema:
Forum:
WinDev Forum
Beiträge im Thema:
3
Erster Beitrag:
vor 6 Jahren
Letzter Beitrag:
vor 6 Jahren
Beteiligte Autoren:
A.H.J. Mess, DerekT

Webdev 16 print to PDF

Startbeitrag von A.H.J. Mess am 07.08.2012 08:49

I use this code to print to PDF with Webdev 16. The same report is started 1 or many times using a different ID.

The first report comes as a download (which is ok) but the rest comes directly on my local printer. I want to get all reports in 1 pdf or all seperate.

CODE:

File is string = gsPDFDirectory + "\Certificaten-"+" "+DateSys()+TimeSys() +".pdf"
iDestination(IPDF, File)

FOR EACH SELECTED ROW OF TABLE_QRY_CertificatenKlant
tt is int
tt++
// Print the report in a PDF file

IF TABLE_QRY_CertificatenKlant.COL_Geslaagd THEN


//Init Query
iInitReportQuery(RPT_Certificaat,TABLE_QRY_CertificatenKlant.COL_ID_CertificatenID)
//Print
iPrintReport(RPT_Certificaat)
//If exists
ELSE
Info("Selectie voor "+TABLE_QRY_CertificatenKlant.COL_Naam+" heeft een certificaat dat nog niet behaald is!")
END

END
IF fFileExist(File) THEN
// Display the report in PDF format
FileDisplay(File, "application/pdf", "Certificaten" + DateSys()+".pdf")
ELSE
Info("File ("+File+") not found or empty")
END

fDelete(File)

END CODE:

Antworten:

Move 'iDestination(IPDF, File)' to the //Print section of your code

von DerekT - am 07.08.2012 10:33
Hello Derek,

I tried that before and have tested it but still no juice....only the first page can be downloaded. I consider to change the report to print all certificates at ones.

Regards, Aad

von A.H.J. Mess - am 07.08.2012 14:20
Zur Information:
MySnip.de hat keinen Einfluss auf die Inhalte der Beiträge. Bitte kontaktieren Sie den Administrator des Forums bei Problemen oder Löschforderungen über die Kontaktseite.
Falls die Kontaktaufnahme mit dem Administrator des Forums fehlschlägt, kontaktieren Sie uns bitte über die in unserem Impressum angegebenen Daten.