如何在Delphi中打印表單？

Question

在網上搜索了大約半個小時後，我決定尋求一些幫助。 目前我使用此代碼：

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

假設該ViewSalesActivity變量是TForm的後代，嘗試PrintScale屬性設置爲poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;