Drucken hoch UND quer

[stahli]

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