Impressão Usb - Gerando páginas em branco

[Marcio_Carneiro]

Olá, amigo

Há muito pesquisei aqui a impressão USB, e graças a vocês, implementei no meu prg em modo console.

Utilizo o Win32_prn, e tudo funciona.

O que não consigo resolver, é controlar o número de páginas, pois ao imprimir meu arquivo txt, ele sempre imprime uma quantidade de páginas a mais

equivalente ao número de páginas no relatório, por exemplo, duas páginas de relatório, duas páginas em branco.

Estou quebrando a cabeça, e não consigo.

Estou fazendo assim:

Código: Selecionar todos

cTexto := memoread(cArq)
     nLinhas := mlcount(cTexto,80)
     tam_pagina:=1   
     For n := 1 to nLinhas
     
        clinha:=memoline(CTexto,200,n)
        
        oPrinter:newline() // Inicia nova linha 
        oPrinter:SetFont("Lucida Console",11,{3,-50}) // Comprimida        
        oPrinter:TextOut(HB_OemToAnsi(clinha))
          
                
        tam_pagina=tam_pagina+1
                
        if tam_pagina=64
          oPrinter:NewPage()
         tam_pagina:=1
    
        endif 
     Next
    oPrinter:Bold(0) // Normal
    oPrinter:EndDoc()
    oPrinter:Destroy()   

o mlcount está mostrando um dado que não é o certo, sempre um número próximo do dobro de linhas com impressão.

Como faço para pegar somente as linhas com dados e não gerar as páginas em branco?

Pensei em usar o caracter ♀, que sinaliza o final do arquivo, mas não estou sabendo como fazer.

Um abraço

[sygecom]

Bem provavelmente tenha nos seus ARQUIVOS TEXTO algum __Eject(), EJECT ou Chr(12), tente tirar do TXT e manda imprimir novamente.

[Marcio_Carneiro]

Obrigado pela atenção.

Eu não entendo porque o mlcount retorna 249, se abrindo o arquivo vejo que ele tem 125 linhas.

Talvez o erro esteja ai.

Alguém tem rotina pra limpar arquivo txt destes caracteres de controle?

[Itamar M. Lins Jr.]

Ola!
O texto é muito largo.
mlcont(xx,250)

Saudações,
Itamar M. Lins Jr.