[rgstuamigo]

Tambien si quisieras imprimir tu formulario completo asi tal como se ve, podrias hacer lo siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
 Print;
end;

si quisieras ocultar algun componente que no quieras que se imprima, podrias hacer el siguiente truquito:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible:=False;
  Button2.Visible:=False;
  Print;//aqui imprime todos los componentes que estan visibles.
  Button1.Visible:=True;
  Button2.Visible:=True;
end;