[xeroq]

Bueno,usas la función Printer que devuelve un TPrinter (la impresora),la cual tiene un Canvas en la que puedes dibujar como en cualquier otro:

Printer.BeginDoc;
Printer.Canvas.Rectangle(10,10,100,100);
Printer.EndDoc;

Espero te sirva