im Rahmen einer Liste möchte ich während des Drucks von Hoch- auf Querformat und zurück wechseln. Der Wechsel geschieht jeweils, wenn eine Seite gedruckt ist, bevor die nächste Seite begonnen wird.
Ich habe das testweise einmal so dargestellt:
Code: Alles auswählen
FUNCTION FormatTest()
Local aSize
Local cPrinter
Local oPrinter, oPS
oPrinter := XbpPrinter():new()
cPrinter := "Adobe PDF"
oPrinter:create(cPrinter)
oPS := XbpPresSpace():new()
aSize := oPrinter:paperSize()
aSize := {aSize[5] - aSize[3], aSize[6] - aSize[4]}
oPS:create(oPrinter, aSize, GRA_PU_LOMETRIC)
oPrinter:startDoc()
oPrinter:startPage()
GraStringAt(oPS, {100, 100}, "Das ist ein Test")
oPrinter:endPage()
/*
aSize := ASort(aSize, , , .T.)
oPS:setPageSize(aSize, GRA_PU_LOMETRIC)
oPrinter:setOrientation(XBPPRN_ORIENT_LANDSCAPE)
oPS:configure()
*/
oPrinter:startPage()
GraStringAt(oPS, {100, 100}, "Das ist ein Test")
oPrinter:endPage()
oPrinter:endDoc()
RETURN (.T.)
Nun bin ich (endlich mal) sprachlos und höre, was Ihr mir dazu sagt.