Ver Mensaje Individual
  #1  
Antiguo 12-02-2004
epalacios epalacios is offline
Miembro
 
Registrado: jun 2003
Posts: 20
Reputación: 0
epalacios Va por buen camino
No me imprime nada

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
Responder Con Cita