Open "LPT1" - Alguem me ajude!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Open "LPT1" - Alguem me ajude!

Ewerton-RJ

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 15/06/2005 11:32 hs

Senhores, gostaria de saber se alguem pode me ajudar a usar esse comando..preciso desse comando para uma impressao...tenho ele mais ou menos assim:

"Dim ARQLPT1 as String

Dim ARQREL as String

ARQREL = FreeFile

ARQLPT1 = FreeFile

Open "LPT1" For Output As #ARQLPT1 'Open port LPT1
                    Print #ARQLPT1, INPUT(LOF(ARQREL), ARQREL)
                    Close #ARQREL
                    Close #ARQLPT1"

mas esta dando um erro, me ajudem a usar isso...

Valeu!

Ewerton Oliveira

zeuzebio

CRICIÚMA
SC - BRASIL

Postada em 15/06/2005 12:32 hs

Amigo,

O comando:

Print #ARQLPT1, INPUT(LOF(ARQREL), ARQREL)

que você está usando não parece estar certo porque PRINT é para inserir no arquivo e INPUT para receber dados (mesmo que de arquivo).

Veja como poderia ser

Dim ArqLivre as Integer

Dim LinhaArq as String

ArqLivre=Freefile

Open "LPT1:" For Output as ArqLivre

LinhaArq="Gravar no Arquivo"

Print #ArqLivre,LinhaArq 'Grava o conteúdo da variável no arquivo texto.

Para obter dados seria assim:

Open "c: emparq.txt" For Input as ArqLivre

Line Input #ArqLivre,LinhaArq

Na variável LinhaArq viria o conteúdo da primeira linha do arquivo.

Para buscar todas as linhas e ir mostrando em uma msgbox seria assim:

Open "c: emparq.txt" For Input as ArqLivre

Line Input #ArqLivre,LinhaArq

If EOF(ArqLivre) then exit do

Line Input #ArqLivre,LinhaArq

Msgbox (LinhaArq)

Loop

Msgbox ("Mostrei todas as linhas do arquivo")

LPT1: pode ser aberto somente como Output e usar Print #. Não se pode usar LPT1: com For Input porque não se lê dados da impressora.

Espero ter ajudado, amigo. Qualquer coisa, envie nova mensagem.

Abraço.

Ewerton-RJ

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 15/06/2005 13:36 hs

Cara brigadao mesmo...

Ainda nao testei, mas acredito q realmente fuincione..valeu mesmo...

Ewerton Oliveira

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR