Fórum Impressão de boletos... #298699

Estou fazendo um programa para a impressão de boletos bancarios, mas ele só imprime até o 3º boleto. Gostaria de saber como posso continuar imprimindo os boletos sem dar um enddoc na impressão.
Já tentei configurar o tamanho do papel nas configurações da impressora mas o XP não deixa(é uma Ep. LX-300). Estou usando o TPrinter para imprimir. Estou mandando o código Também.

Desde já agradeço!!! :D

O código, só estou passando a parte de impressão:

//INÍCIO DA IMPRESSÃO IMPRESSÃO
Printer;
CONTCLI := SpinEdit1.VALUE;
PRINTER.TiTLE := ´ESM - BOLETOS´;
printer.begindoc;
PRINTER.Canvas.Font.Size := 10;
LINHA := 0;
IMPRESSAO := 0;
ACRESCIMO := 0;
CONT := 0;
DECRESCIMO := 0;
WHILE CONTCLI <= SpinEdit2.VALUE DO
BEGIN
IF DM.TbCliente.FindKey([CONTCLI]) THEN
BEGIN
if cancelar = true then
printer.Abort;
LINHA := LINHA + 40+ IMPRESSAO - DECRESCIMO;
PRINTER.CANVAS.TextOut(40,LINHA, ´QUALQUER LOCAL ATÉ O VENCIMENTO´);
PRINTER.CANVAS.TextOut(700,LINHA, DATETOSTR(DM.TbClienteDAT_VENC.VALUE));
LINHA := LINHA + 68;
PRINTER.CANVAS.TextOut(45,LINHA, DATETOSTR(NOW));
//Verificando Nota
IF DM.TbClienteNOTA.VALUE > 0 THEN
PRINTER.CANVAS.TextOut(300,LINHA, INTTOSTR(DM.TbClienteNOTA.VALUE));
LINHA := LINHA + 35;
PRINTER.CANVAS.TextOut(700,LINHA, CURRTOSTR(DM.TbClienteValor_Boleto.VALUE + DM.TbClienteUltima_Alteracao.VALUE));
LINHA := LINHA + 35;
//Verificando Desconto
if DM.TbClienteDESCONTO.VALUE > 0 then
PRINTER.CANVAS.TextOut(700,LINHA, FloatToStr(DM.TbClienteDESCONTO.VALUE));
LINHA := LINHA - 8 + ACRESCIMO;
PRINTER.CANVAS.TextOut(40,LINHA, ´APÓS O VENCIMENTO COBRAR MULTA DE 2¬ MAIS´);
LINHA := LINHA + 26;
PRINTER.CANVAS.TextOut(40,LINHA, ´JUROS DE 0,20¬ AO DIA´);
LINHA := LINHA + 150;
PRINTER.CANVAS.TextOut(40,LINHA, (DM.TbClienteNom_cliente.Value + ´ ´+ DM.TbClienteNUM_DOC.value));
LINHA := LINHA + 30;
PRINTER.CANVAS.TextOut(40,LINHA, (DM.TbClienteEnd_Cliente.VALUE));
LINHA := LINHA + 117;
PRINTER.CANVAS.TextOut(40,LINHA, ´´);
IMPRESSAO := IMPRESSAO + 75;
CONTCLI := CONTCLI +1;
ACRESCIMO := 10;
CONT := CONT + 1;
if cont >= 3 then
begin
LINHA := 0;
IMPRESSAO := 0;
ACRESCIMO := 0;
CONT := 0;
DECRESCIMO := 0;
end;
IF CONT >= 2 THEN
BEGIN
DECRESCIMO := 78;
END;
END ELSE
BEGIN
CONTCLI := CONTCLI +1;
END;
END;

IMPRESSAO := 0;
printer.enddoc;