Printer.Canvas Imprime Basura
 

Bien mi problema es que al estar imprimiendo un documento de manera directa, mediante las instrucciones printer.Canvas.TextOut en una impresora epson dfx-5000+ con el tipo de papel USA Standar, imprime basura de manera aleatoria.

De manera mas explicita al mandar imprimir el primer documento, imprime basura en la cuarta, sexta, y ultima linea,esto se puede darse en el inicio o en el final de esa linea, Sin terminar de ejecutar el programa envio de nuevo el documento pero ahora la basura la imprimir en la primera, y ultima linea. y asi sucesivamente, entonces no hay un patron de comportamiento en la impresion de la basura.:confused: Que hago...........¡¡¡

El procedimiento que utilizo es el siguiente espero que alguien me pueda ayudar

Printer.Title:='Doc';
Papel(DMPAPER_FANFOLD_US);
printer.BeginDoc;
Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);
printer.Canvas.Font.Size:=10;
GetTextMetrics(Printer.Canvas.Handle, tm);
try
Encabezado;
Cuerpo;
Totales;
finally
Printer.EndDoc;
end;

Gracias de antemano y un saludo......