[chutipascal]

Dibuja, pon los textos, etc... en el canvas de printer.

Por ej.

Ojo poner printers en uses

with Printer do
    begin
    begindoc;
    Canvas.TextOut(200,200 ,'HOLA CHAVAL');
    Canvas.Brush.Color := clBlack;
    EndDoc;
end;