Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Second Report as a second page
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00636180
Message ID:
00637805
Vues:
18
Is allways the first report one page in lenght?
If so, try this:
Fix the first page on the header and the second page on the footer section, I mean if your report is a list of some entity's properties, you can show some fields on the header and the rest on the footer, you can enlarge the report's sections as long as you can...

HTH.


>The code below serves my purpose well up to a point. I need to geneate a second report to a .pdf and insert it into the first .pdf as a second page. Any ideas or help is appreciated.
>
>Thanks,
>Dave
>
>> NOTE: PDF generation (Subdivision)
>>
>> Local cApprovalNumber, nRecNo, oDistiller, nPdf
>> Set Printer To Name 'Acrobat PDFWriter'
>> oDistiller = CreateObject('pdfDistiller.PDFDistiller.1')
>> Do While !Eof('crsApprReport')
>> nRecNo = RecNo()
>> cApprovalNumber = Upper(Alltrim(crsApprReport.cApprovNo))
>> Report Form 'C:\Vfp6\Approvals\Daves sample\ssubappr.frx' ;
>> For Upper(Alltrim(crsApprReport.cApprovNo)) = cApprovalNumber NoConsole ;
>> To File Sys(2023) + '\Post Script.ps'
>> If File(Sys(2023) + '\Post Script.ps')
>> nPdf = oDistiller.FileToPDF(Sys(2023) + '\Post Script.ps', ;
>> Sys(2023) + '\' + cApprovalNumber + '.pdf', '')
>> Delete File Sys(2023) + '\Post Script.ps'
>> If nPdf != 1 Or !File(Sys(2023) + '\' + cApprovalNumber + '.pdf')
>> =MessageBox('Problem')
>> Endif
>> Else
>> =MessageBox('Problem')
>> Endif
>> GoTo nRecNo
>> Skip
>> EndDo
>> Set Printer To Default
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform