Drucken hoch UND quer

[fs999]

Hallo,

Man muss nur dies tun :

Delphi-Quellcode:

    ...
    Printer.EndDoc; // <==
    if PageImage.Width > PageImage.Height then
      Printer.Orientation := TPrinterOrientation(poLandscape) 
    else
      Printer.Orientation := TPrinterOrientation(poPortrait);
    Printer.BeginDoc; // <==
    ...