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