Ayuda con imprimir

[Chogo]

Este es un pequeño ejemplo de como imprimir por medio del objecto Printer

Necesitar poner en uso la unidad Printers.

Código Delphi [-]
Procedure TFrm.Imprimir;
var
    DeviceMode: THandle;
    Device, Driver, Port: array[0..1023] of char;
begin
     Printer.GetPrinter(Device, Driver, Port, DeviceMode);;
     with Printer do
     begin
     SetMapMode(Printer.Handle,MM_LOMETRIC);
     BeginDoc;
            Canvas.Font.Name:= 'Verdana';
            Canvas.Font.Style:= [fsBold];
            Canvas.Font.Size:=12;
            Canvas.TextOut(10,100,'Hola mundo');
     EndDoc;
     end;
     Printer.SetPrinter(Device, Driver, Port, DeviceMode);
end;