フォームをDelphiで印刷するには？

Question

約30分ウェブを検索した後、私はいくつかの助けを求めることにしました。 は現在、私はこのコードを使用しています：

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; 

フォーム全体を印刷するには。 フォームにはボタン、テキスト、キャプション、エディットボックスなどが含まれます。

唯一の問題は、プリントアウトがコンピュータウィンドウの拡大縮小であることです。それはあまりにも小さいです。それはまた、ページの左上隅に止まっています。それはページの全体/ページの大部分を満たすようにする方法はありますか？

Answer 1

poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;