FastReports Seitenbreite zur Laufzeit einstellen

[TurboMagic]

Hallo,

ich versuche bei einem FastReports (EMBT Edition, D11.3) Druckreport zur Laufzeit die Seitenbreite zu ändern.

Delphi-Quellcode:

DMReceipt.frxReceipt69mm.Pages[0].Width := FPrintSettings.ReceiptWidth;

Wobei frxReceipt69mm das TfrxReport Objekt ist.
In den Bands sind Steuerelemente drin, die rechts verankert sind (aber nicht links),
nur stelle ich beim Ausdrucken keinen Unterschied fest (Seitenbreite 69,5 mm vs. 80 mm)

Ich mache das direkt nach dem frxReceipt69mm.LoadFromFile, also noch vor einem Prepare etc.
Wo liegt mein Denkfehler?
Versuche ich das mit .Page := statt Pages[0] crasht es mit AV.
Die Seite ist als unendlich hoch definiert, breite ist aber nicht unendlich.

Grüße
TurboMagic

[Ancaron]

Hast du mal nachgeschaut ob Pages[0] auch die erste Seite ist oder ist es die Datapage?
Ich habe das was im Hinterkopf, dass Fastreport auch die DataPage mit in dem Array hat.

Edit: Habe mal nachgeschaut bei mir und Ich hatte zwar etwas anderes an den Pages geändert aber bin immer über die Pages gelaufen und habe auf

Zitat:

frxReportMain.Pages[iPage] is TfrxReportPage

oder

Zitat:

frxReportMain.Pages[iPage] is TfrxDataPage

geprüft

[TurboMagic]

Hallo,

danke für den Tipp. Habe den ausprobiert, hat dann zwar tatsächlich 2 Seiten ergeben
und nur die 2. ist "is". Hat aber trotzdem keinen Unterschied in der Druckbreite ergeben.

Soweit ich die Doku verstanden habe, müsste ich da ja frxReceipt69mm.Pages[i].Width := 80;
angeben.

Oder was mache ich sonst noch falsch?

Grüße
TurboMagic

[mytbo]

Zitat:

Zitat von TurboMagic (Beitrag 1530544)

Oder was mache ich sonst noch falsch?

Im Anhang dieses Posts findest du ein Beispiel mit Quelltext.

Bis bald...
Thomas

[TurboMagic]

Danke! Das hat mich auf die Spur gebracht.
Ich hatte vergessen zu casten und deshalb keine PaperWidth verfügbar.

Grüße
TurboMagic