... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Imprimir direto para a porta da impressora

a) Para uma impressora que utiliza a porta LPT1

'Enviar um arquivo txt direto para a porta LPT1
Open "LPT1" For Output As #1
   Print #1, "Impressão de teste"
Close #1

b) Para uma impressora que utiliza a porta USB

Primeiro devemos compartilhar a impressora na rede.  Como compartilhar?

- Abra o Iniciar do Windows e clique na opção dispositivos e impressoras.

- Clique com o botão direito do mouse sobre o nome da impressora que deseja compartilhar e assinale o item Propriedades de impressora

Usando Access - propriedades de impressora

- Clique na aba Partilha, marque Partilhar esta impressora e digite um nome para a impressora.   Observe na imagem abaixo:

Usando Access - Partilhar impressora

Agora, basta indicar na instrução OPEN, o nome do computador que compartilha a impressora, bem como o nome da impressora.

'Enviar um arquivo txt direto para a impressora compartilhada
Open "\\W764Serv\Tx420w" For Output As #1
   Print #1, "Impressão de teste"
Close #1
 
'w764serv é o nome do computador que compartilha a impressora
'Tx420W é o nome dado à impressora compartilhada, conforme você pôde observar
'na imagem acima

Bom estudo!


 

 


5 comentário(s)

Carlos Reis   05/01/2018 08:28:24

Teríamos que atualizar essa dica aqui pois com o aumento da segurança nos Windows mais atuais, eu tenho passado por uma situação diferente. Toda vez que mando imprimir diretamente pra impressora na rede, aparece a seguinte mensagem de erro:

Erro em tempo de execução '75':

Erro de acesso a caminho/arquivo

Mandando imprimir pelo Windows, vai normalmente mas pelos comandos abaixo, dá esse erro demonstrado acima.

Dim PortImp As String
PortImp = "\\SERVICE-PC\HPLASER"

Open PortImp For Output As #1

Print #1, "impressão teste"
Print #1, ""
Print #1, "ESSA LINHA É UM TESTE "
Print #1, ""
Print #1, "Fim do teste!"
Close #1

Alguém sabe o que temos que fazer nas propriedades dessa impressora para que ela permita impressão direta pelo comando "Open"?

Carlos Reis   05/01/2018 09:43:52

Achei a resposta aqui:

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/7577013253?r=7177014083#7177014083

Avelino Sampaio   05/01/2018 11:07:13

Carlos,

obrigado pelo feedback.

Egnaldo   06/01/2018 03:12:23

Estava tendo o mesmo problema, solução tambem deu certo para mim, obrigado!

Samuel   17/07/2018 05:45:20

O Link passado como a solução do problema esta indisponivel, teria como alguem me informar qual a solução, pois estou com o mesmo problema?


Envie seu comentário: