IMPRESSAO MATRICIAL

LEARDINI 16/03/2012 12:06:46
#397309
Galera, bom dia.

Eu preciso imprimir um arquivo TXT em uma impressora matricial, e consigo fazer isso, mas o problema é que o tamanho da impressão não é de uma folha A4 e sim menor. Estou usando esse código para fazer a impressão.

  Dim Arq As String
    Open [Ô]C:\My File.txt[Ô] For Input As #1
    Arq = Input(LOF(1), 1)
    Close #1
    Printer.Print Arq
    Printer.EndDoc


O TXT pode variar de tamanho, segue o Layout.
segue em anexo
MARCELO.TREZE 16/03/2012 15:56:24
#397334
colega vc imprimindo da maneira que postou vai sair na folha, ou seja tipo um cupom fiscal, vc deve apenas limitar a quantidade de caracteres por linha.
LEARDINI 17/03/2012 11:32:54
#397368
Amigo, essa limitação de linhas eu faço, porem quando eu imprimo sai perfeito mas quando imprime a ultima linha a impressão não para ela continua saindo papel até dar o tamanho do Papel A4, eu não quero isso quero que pare a impressão uma vez que não há mais nda há imprimir.
MARCELO.TREZE 17/03/2012 12:13:35
#397373
Agora entendi, qual é a impressora que está usando?
LEARDINI 17/03/2012 12:50:46
#397376
Uso uma ECF não fiscal, com o Driver Genérico de Texto. Mas acabei de fazer um teste fazendo uma impressão direto pelo LPT1. Vou tentar fazer assim direto sem criar o TXT. Vlw Manin

  
Open [Ô]lpt1[Ô] For Output As #1
      Print #1, [Ô]O windows nem imagina que mandei imprimir isto ! [Ô]
      Print #1, [Ô]teste de impressao [Ô]; [Ô] teste de impressão [Ô]
Close #1
Tópico encerrado , respostas não são mais permitidas
Voltar