procedure TForm1.Button1Click(Sender: TObject); var printDialog : TPrintDialog; myPrinter : TPrinter; begin printDialog := TPrintDialog.Create(Form1); if printDialog.Execute then begin Printer.Orientation := poLandscape; Form1.PrintScale:=poPrintToFit; Form1.Print; end; end;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)