No me imprime nada

[epalacios]

Buenos días.

Tengo que imprimir el contenido de un form mediante este código:

procedure TCustomImpresion.ImprimirPantalla;
begin
printer.Orientation:= poLandscape;
printer.BeginDoc;
Inicializar(printer.Canvas, printer.PageHeight,Printer.PageWidth);
printer.Canvas.StretchDraw(Rect(0,0,Printer.PageWidth,printer.PageHeight),frmInforme.GetFormImage);
printer.EndDoc;
end;d;

El resultado es que en el PC que tengo instalado el Delphi me imprime bien pero si llevo la aplicación a otro PC que no tenga Delphi me saca la hoja en blanco. Necesito ayuda, socorro.

Muchas gracias y un saludo

[Gydba]

Tenía entendio que un TForm tenía la propiedad Print y PrintScale y con eso bastaría para hacer lo que querés. No sé si esto te ayuda en algo pero tal vez te convega chequear las propiedades de la impresora.

[epalacios]

Es la misma impresora la que utilizo desde los dos PC´s

[Gydba]

A lo que yo apuntaba era que en un caso en particular me pasó que mandaba a imprimir un comprobante a una impresora laser y no me imprimía el logotipo que casualmente era una imágen. El tema se solucionó cambiando las propiedades de la impresora. Aclaro que también trabajaba en red.

Pero para tu problema en particular la verdad es que no tengo muchas ideas. Yo probaría en alguna PC mas con una impresora local.