Code: Alles auswählen
XIncludeFile "Includes\pbPDFModule.pbi"
Enumeration
#filPDF
EndEnumeration
Procedure Listenkopf()
PDF::Cell(#filPDF, "Listenkopf", #PB_Default, 10, 0, 0, PDF::#CenterAlign)
EndProcedure
Procedure Listenfuss()
PDF::SetPosY(#filPDF, -15)
PDF::Cell(#filPDF, "Page {p} / {tp}", #PB_Default, 10, 0, 0, PDF::#CenterAlign)
EndProcedure
Procedure PDFTest()
PDF::Create(#filPDF)
PDF::SetAliasTotalPages(#filPDF,"{tp}")
PDF::EnableHeader(#filPDF)
PDF::EnableFooter(#filPDF)
PDF::SetHeaderProcedure(#filPDF,@Listenkopf())
PDF::SetFooterProcedure(#filPDF,@Listenfuss())
PDF::SetInfo(#filPDF,PDF::#Titel,"Titel")
PDF::SetInfo(#filPDF,PDF::#Author,"Autor")
PDF::SetPageMargins(#filPDF,20,10,10)
PDF::SetPageNumbering(#filPDF,#True)
PDF::AddPage(#filPDF)
PDF::SetAutoPageBreak(#filPDF,#True)
PDF::SetFont(#filPDF,"Arial","",9)
For i=0 To 100
i+1
PDF::Cell(#filPDF,Str(i),8,5,#False,#False,"R")
PDF::Cell(#filPDF,"",3)
PDF::Cell(#filPDF,"10000",20,5,0,0,"R")
PDF::Cell(#filPDF,"Schmidt, Anton",50,5)
PDF::Cell(#filPDF,"Teststraße 12",0,5,#False,PDF::#NextLine)
PDF::Cell(#filPDF,"",81)
PDF::Cell(#filPDF,"11111",15,5)
PDF::Cell(#filPDF,"Testhausen",0,5,#False,PDF::#NextLine)
Next
PDF::Save(#filPDF,"C:\1\Test.pdf")
RunProgram(#DQUOTE$+"C:\1\Test.pdf"+#DQUOTE$,"","")
EndProcedure
PDFTest()
Beim meinem Echt-Projekt bricht die Anzeige der PDF-Datei bei Seite 2 mit dem Fehler "Fehler auf dieser Seite. Die Seite wird unter Umständen nicht richtig in Acrobat angezeigt. Wenden Sie sich an den Ersteller des PDF-Dokumentes ab."
Bei obigen Beispielcode kommt ein Abbruch in der Prozedur "GetStringWidth_". Die Map hat kein aktuelles Element.
Vielleicht kannst du bei Gelegenheit nochmal drüber schauen.
Vielen vielen Dank.