Delphi'de bir form yazdırmak nasıl?

Question

Web etrafında yaklaşık yarım saat aradıktan sonra, bir miktar yardım istemeye karar verdim. Şu ben bu kodu kullanıyorum:

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; 

bir bütün formu yazdırmak için. Form, düğmeler, metin, altyazı ve düzenleme kutuları vb. Içerir.

Tek sorun, çıktının bilgisayar penceresinin ölçeğidir; bu da çok küçük. Ayrıca sayfanın sol üst köşesinde sıkışmış. Sayfanın tamamını/büyük bölümünü doldurmak için herhangi bir yolu var mı?

Answer 1

ViewSalesActivity değişken bir TForm soyundan olan varsayarsak, poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;