Come stampare un modulo in Delphi?

Question

Dopo aver cercato per circa mezz'ora sul web ho deciso di chiedere aiuto. Attualmente sto usando questo codice:

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; 

Per stampare un modulo intero. Il modulo include pulsanti, testo, didascalie e caselle di modifica ecc.

L'unico problema è che la stampa è in scala della finestra del computer; che è troppo piccolo È anche bloccato nell'angolo in alto a sinistra della pagina. C'è un modo per farlo riempire un'intera pagina/maggioranza della pagina?

Answer 1

Assumendo che la variabile ViewSalesActivity è un discendente TForm, provare a impostare la proprietà PrintScale a poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;