Delphi - Imprimir un Form

   
Vista:

Imprimir un Form

Publicado por Ruben (1 intervención) el 28/02/2010 20:45:06
Hola alguien sabria decirme como puedo imprimir todo el contenido de un formulario en delphi.
uso este codigo para imprimir las lineas de un memo

if PrintDialog1.Execute then
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Font.Size:=10;
Canvas.Font.Name:='Arial';
Canvas.Brush.Style := bsClear;
for i := 0 to print_preview.Lines.Count do
Canvas.TextOut(200,200 + (i * Canvas.TextHeight(print_preview.Lines.Strings[i])),print_preview.Lines.Strings[i]);

Canvas.Brush.Color := clBlack;

Canvas.FrameRect(r);
EndDoc;
end;
end;

como podria aplicarlo para que me imprima un formulario
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder