如何在delphi中打印一個表格

Question

我想在delphi中打印一個表格，我不知道該如何去做。我嘗試過打印對話框，但我無法打印任何東西。

任何幫助表示讚賞。

Answer 1

您可以簡單地調用TForm的Print方法。使用PrintScale屬性可以控制打印縮放的額外控制。

打印對話框TPrintDialog只是顯示打印的標準系統對話框。這允許用戶選擇打印機，更改其屬性，選擇打印範圍，打印份數，是否整理等等。當對話框返回時，您可以閱讀該信息並採取相應措施。換句話說，TPrintDialog允許您從用戶檢索一些選擇，但不執行任何打印。您仍必須執行實際打印，以便進行這些選擇。因此

您的代碼可能是這樣的：

if PrintDialog.Execute then 
begin 
    // account for any user choices, reading from PrintDialog properties 
    PrintScale := ...; 
    for i := 1 to PrintDialog.Copies do 
    Print; 
end;