IMPRIMIR PARA TXT, E APOS MOSTRAR NO VIDEO ?
é o seguinte, minhas rotinas de impressão em formulários pré-impressos, (notas fiscais, boletos, duplicatas, promissórias, etc) são impressas através do print, sempre direto para a impressora, pois são todas impressões matriciais, agora outros relatórios uso o crystal, pois assim o usuário visualiza em video, podendo através dos controles do crystal, escolher em qual impressora vai imprimir, ou mesmo apenas visualizar em vÃdeo. Meu problema é qtos aos pré-impressos que mando direto para a lpt, se precisar fazer apenas uma consulta em video, de um documento ja emitido, pelo crystal tenho que usar o selectionformula, o que fica lento. Então pensei em imprimir em um txt, depois mostra-lo em um form, como mostrar um txt em um form ?
Vc pode colocar um arquivo texto com formatação em um controle LISTBOX.
Defina a fonte para COURIER NEW e jogue todo o texto na list box.
Ex:
DIM F AS LONG
DIM L AS STRING
LIST1.CLEAR
F=FREEFILE
OPEN "NOMEARQ.TXT" FOR INPUT AS #F
DO WHILE NOT EOF(F)
INPUT #F, L
LIST1.ADDITEM L
LOOP
CLOSE #F
IF LIST1.LISTCOUNT > 0 THEN
LIST1.LISTINDEX=0
END IF
Printo!
Isto é um exemplo simples que poderá lhe dar uma idéia desta técnica.
That' All
Defina a fonte para COURIER NEW e jogue todo o texto na list box.
Ex:
DIM F AS LONG
DIM L AS STRING
LIST1.CLEAR
F=FREEFILE
OPEN "NOMEARQ.TXT" FOR INPUT AS #F
DO WHILE NOT EOF(F)
INPUT #F, L
LIST1.ADDITEM L
LOOP
CLOSE #F
IF LIST1.LISTCOUNT > 0 THEN
LIST1.LISTINDEX=0
END IF
Printo!
Isto é um exemplo simples que poderá lhe dar uma idéia desta técnica.
That' All
Se for o caso tambem voce pode dar um shell no arquivo
shell "notepad.exe " & MeuArquivo
shell "notepad.exe " & MeuArquivo
Tópico encerrado , respostas não são mais permitidas