COMO FACO PARA IMPRIMIR UM ARQUIVO TXT

USUARIO.EXCLUIDOS 04/10/2004 10:38:53
#44461
Preciso imprimir um arquivo txt atraves do vb6 direto na lpt1, preciso saber qual a forma mais rapida para deste txt ser impresso em uma impressora matricial tipo a lx-810
USUARIO.EXCLUIDOS 04/10/2004 14:43:45
#44496 Resposta escolhida
Vamos lá:
Para compactar (imprimir 132 colunas como se fossem 80):
Print #f, chr(15) 'a partir daqui ele compacta td
Para descompactar:
Print #f, chr(18) 'a partir daqui ele naum compacta mais
Pular páxina:
Print #f, chr(12)

Obs.: Pra usa esses chr, vc naum pode grava num txt pra depois manda pra lpt 1, tem que manda direto!
Pra imprimi direto na lpt1, basta fazer uma pekena modificação no codigo que o Flavio passo:

  dim f as integer 
dim dado as string 
f = freefile 
open lpt1 for input as f 
do 
    if eof(f) then exit do 
    line input #f,dado 
    printer.print dado 
loop


Espero ter ajudado..qualquer coisa, poste!
USUARIO.EXCLUIDOS 04/10/2004 14:47:01
#44498
Ahh..lpt1 tem q se entre aspas..assim:

open "lpt1" for input as f


Webmaster...bem que podia coloca uma opção pra edita os posts neh?
USUARIO.EXCLUIDOS 05/10/2004 10:17:32
#44639
Ixi, ae naum sei disser! Nunca fiz isso de imprimi metade da linha de um jeito e metade de outro!
Tópico encerrado , respostas não são mais permitidas
Voltar