Impressão Usb - Gerando páginas em branco
Enviado: 27 Abr 2020 20:42
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:
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
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() 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