PC Toledo

Prezados:

Tem sido um grande aprendizado com todos vocês e suas explicações.

Nos tempos de Clipper, sempre usei o NODOSIMP para imprimir relatórios em impressora de rede ou USB.
Depois entrei no Harbour, continuo usando o NODOSIMP.

Aí, pensei...já que houve a evolução do Harbour, já existe algum ...

DESCOBRI!!!!!!!!!!!

O problema estava nos @x,y. Isso que causava o "eject" de uma folha em branco. Veja abaixo.

Onde se lê:
===================================================
FUNCTION CAB_REL(TITULO_PRI,TITULO_SEC,TITULO_TER)
LARG_CAB:=TAM_REL/2
@ 0,0 SAY REPLICATE ("=",TAM_REL)
@ 1,LARG_CAB ...

Oi, Jairo!

Segue a rotina lembrando que não é a rotina principal.
O problema, acredito eu, é o que está marcado em vermelho.

------------------------------------------------------------------------

#include <hmg.ch>

REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")

L:=1
PG:=1
TAM_REL:=94
TITULOTER:="Lista ...

Jairo,

1º relatório sai assim:

==============================================================================================
EMPRESA TAL 1
CONTROLE DE ENTRADA E SAIDA DE MATERIAL DE ESCRITORIO
Lista de Contas de Entrada - por Ordem Alfabetica ...

Complementando a mensagem anterior:

No primeiro relatório não tem a setinha apontada para cima. Mas no segundo relatório tem e é essa setinha que solta folha em branco.
Essa setinha é chamada de EJECT.
Então entre o primeiro e o segundo relatório fica na memória esta setinha (EJECT) que solta a ...

Boa tarde, desenvolvedores!

Desenvolvo programas em Harbour (nunca uso xHarbour). Uso a IDE HMG.
Desenvolvi vários relatórios que são salvos em arquivos TXT para posteriormente serem impressos pelo programa NODOSIMP.EXE.

Tem um problema esquisito que não estou conseguindo resolver.
É o seguinte ...

A todos! Boa tarde!

Eu também tive o mesmo problema da dificuldade do comando "EJECT" em impressora USB/Rede.
Depois de tanto ralar que durou até 1 mês para descobrir cheguei a seguinte solução para impressão de arquivo TXT.
Eis o seguinte...

O comando correto é: __eject ...