// Abfrage und Einstellung der Drucker-Ausrichtung

// Getestet mit D4 unter Win98

uses printers,...

procedure TForm1.Button1Click(Sender: TObject);
var r:integer;
begin
with printer do begin
if pagewidth > pageheight then
r:=messagedlg('Druckerausrichtung automatisch anpassen?',
mtconfirmation,[mbyes,mbno,mbcancel],0);
case r of
mryes:orientation:=poportrait;
mrcancel:exit;
end;
begindoc;
canvas.textout(100,100,'Hochformat');
enddoc;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var r:integer;
begin
with printer do begin
if pagewidth < pageheight then
r:=messagedlg('Druckerausrichtung automatisch anpassen?',
mtconfirmation,[mbyes,mbno,mbcancel],0);
case r of
mryes:orientation:=polandscape;
mrcancel:exit;
end;
begindoc;
canvas.textout(100,100,'Querformat');
enddoc;
end;
end;