Tweet
Hallo, ich möchte im Querformat drucken. Bitte mit Beispiel. Werkann helfen ? Danke und Gruß aus Bremen
-
-
Hallo,
das folgende Beispiel für <b>TPrinter.Orientation</b> stammt aus der Hilfe zu Delphi 5:
<i>Zum folgenden Beispiel gehören eine Schaltfläche sowie zwei Optionsfelder mit der Aufschrift Querformat und Hochformat. Wenn der Benutzer auf die Schaltfläche klickt, wird eine Textzeile unter Berücksichtigung der gewählten Seitenausrichtung gedruckt.</i>
<pre>
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.BeginDoc;
Printer.Canvas.TextOut(100,100,'Hallo zusammen');
Printer.EndDoc;
end;
procedure TForm1.PortraitClick(Sender: TObject);
begin
Printer.Orientation := poPortrait;
end;
procedure TForm1.LandscapeClick(Sender: TObject);
begin
Printer.Orientation := poLandscape;
end;
</pre>
Comment