Jak wydrukować formularz w Delphi?

Question

Po przeszukiwaniu sieci przez około pół godziny postanowiłem poprosić o pomoc. Obecnie używam tego kodu:

procedure TViewSalesActivity.btnPrintClick(Sender: TObject); 
begin 
    with TPrintDialog.Create(nil) do 
    ViewSalesActivity.PrintScale:= 1.5 
    try 
    if Execute then 
    ViewSalesActivity.Print; 
finally 
    Free; 
end; 
end; 

Aby wydrukować cały formularz. Formularz zawiera przyciski, tekst, podpisy i pola edycji itp.

Jedynym problemem jest wydruk w skali okna komputera; który jest o wiele za mały. Utknął również w lewym górnym rogu strony. Czy istnieje sposób na wypełnienie całej strony/większości strony?

Answer 1

Zakładając którym zmienna ViewSalesActivity jest potomkiem TForm, spróbuj ustawić właściwość PrintScale do poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;