Solo imprime la primera vez
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
|