डेल्फी में एक फॉर्म कैसे प्रिंट करें?

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 वंशज है, करने के लिए poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;