TPrinter: Portrait auf Landscape umzuschalten

[einbeliebigername]

Hallo,

Zitat von p80286:

Nö das geht nicht:

Falsch. Es geht doch, ist bloß nicht so einfach.

Die Orientation bei einem Druckjob kann nur außerhalb einer Seite umgestellt werden.

Das Problem ist das NewPage:

Delphi-Quellcode:

procedure TPrinter.NewPage;
begin
  CheckPrinting(True);
  EndPage(DC);
  StartPage(DC);
  Inc(FPageNumber);
  Canvas.Refresh;
end;

Das Umschalten müsste zwischen EndPage(DC); und StartPage(DC); stattfinden. Meine Lösung war damals, den Sourcecode von TPrinter kopieren und das NewPage in EndPage und StartPage zerlegen.

einbeliebigername.