Ich möchte in einem Druckauftrag gern Hoch- und Querblätter ausdrucken.
Word kann das und erzeugt z.B. eine XPS-Datei mit Hoch- und Querblättern. (sollte mit einem PDF-Treiber sicher auch gehen)
Wenn ich das für eine neue Seite versuche, erhalte ich die Fehlermeldung "Druckvorgang läuft".
Delphi-Quellcode:
...
PI := 0;
Printer.Copies := 1;
Printer.Title := GetParentForm(Self).Caption;
Printer.BeginDoc;
repeat
if PI > 0then
Printer.NewPage;
...
if PageImage.Width > PageImage.Height then
Printer.Orientation := TPrinterOrientation(poLandscape) // <- Fehler
else
Printer.Orientation := TPrinterOrientation(poPortrait); // <- Fehler
...
Gibt es da eine Möglichkeit?
Ansonsten könnte ich notfalls Querbilder vorher in´s Hochformat drehen.
Danke
Stahli