Solo imprime la primera vez

[Chogo]

Hola.
Quiero imprimir cheques, lo que estoy usando es el Tcanvas, en Delphi 7, este es el codigo que uso.

with Printer do
begin
SetMapMode(Printer.Handle,MM_LOMETRIC);
BeginDoc;
Canvas.Font.Size:= 10;
Canvas.TextOut(100,200,ATChequesNumeroCheque.AsString);
EndDoc;
end;

Imprime bien la primera vez, pero si vuelvo a imprimir sale la hoja en blanco