Cómo imprimir un formulario en Delphi?

Question

Después de buscar en la web durante aproximadamente media hora, he decidido pedir ayuda. Actualmente estoy usando este código:

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; 

para imprimir un formulario conjunto. El formulario incluye botones, texto, leyendas y cuadros de edición, etc.

El único problema es que la impresión está a escala de la ventana de la computadora; que es demasiado pequeño También está atascado en la esquina superior izquierda de la página. ¿Hay alguna forma de llenar una página completa/la mayoría de la página?

Answer 1

Asumiendo el que la variable ViewSalesActivity es un descendiente TForm, intente establecer la propiedad PrintScale a poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;