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
|