COMPARTILHAR LPT1
Pessoal é possivel compartilhar a porta LPT1
Pois tenho um sisteminha que estava apenas em uma maquina
agora tera 2 maquinas.
como faço para chamar a mesma impressora nas duas?
estou usando:
Open "LPT1" For Output As #1
Como ficaria?
Obrigado a todos.
Nilson
Pois tenho um sisteminha que estava apenas em uma maquina
agora tera 2 maquinas.
como faço para chamar a mesma impressora nas duas?
estou usando:
Open "LPT1" For Output As #1
Como ficaria?
Obrigado a todos.
Nilson
Exemplo de código,
on error resume next
open "\\servidor\epson" for output as #1
if err.number <> 0 then
open "lpt1" for output as #1
endif
on error goto 0
Ele tenta primeiro abrir na rede, se não conseguir ele pega a impressora local. Mas Você pode inverter a sequencia se achar melhor. Eu acho melhor assim,.
Só o computador que tem a impressora que vai utilizar a "LPT1"
Até mais,
on error resume next
open "\\servidor\epson" for output as #1
if err.number <> 0 then
open "lpt1" for output as #1
endif
on error goto 0
Ele tenta primeiro abrir na rede, se não conseguir ele pega a impressora local. Mas Você pode inverter a sequencia se achar melhor. Eu acho melhor assim,.
Só o computador que tem a impressora que vai utilizar a "LPT1"
Até mais,
Porque você não utiliza o CommonDialog para o usuário selecionar a impressora???
Basta o usuário configurar a Printer na máquina dele!!!
Basta o usuário configurar a Printer na máquina dele!!!
Leopoldo,
Onde esta epson eu coloco o modelo da impressora ? No meu caso a AP-2000.
Estou tentando assim e não esta dando certo. Gera o erro
"Bad File Name or Number".
E mesmo se funcionasse como ficaria as configurações tipo condensado
e alguns comandos usados no prtint#1. Irão funcionar ? já que as outras
maquinas não utilizariam a LPT1.
Obrigado.
Nilson
Onde esta epson eu coloco o modelo da impressora ? No meu caso a AP-2000.
Estou tentando assim e não esta dando certo. Gera o erro
"Bad File Name or Number".
E mesmo se funcionasse como ficaria as configurações tipo condensado
e alguns comandos usados no prtint#1. Irão funcionar ? já que as outras
maquinas não utilizariam a LPT1.
Obrigado.
Nilson
Nil,
- \\micro8\ap-200
- Você terá que verificar o caminho do compartilhamento. Aquele erro que você relatou só acontece quando o VB não acha a impressora.
- Claro que vai funcionar, o meio não importa.
Até mais
- \\micro8\ap-200
- Você terá que verificar o caminho do compartilhamento. Aquele erro que você relatou só acontece quando o VB não acha a impressora.
- Claro que vai funcionar, o meio não importa.
Até mais
Estou FAZENDO UM TESTE EM UMA MAQUINA LOCAL
Open "\\NCaires\EPSON" For Output As #1
TERIA QUE FUNCIONAR CERTO?
MAS CONTINUA COM O ERRO
O COMPUTADOR é "NCAIRES" E O NOME DO COMPARTILHAMENTO DA IMPRESSORA é "EPSON".
O QUE PODE SER /
obrigado leopoldo e demais.
Open "\\NCaires\EPSON" For Output As #1
TERIA QUE FUNCIONAR CERTO?
MAS CONTINUA COM O ERRO
O COMPUTADOR é "NCAIRES" E O NOME DO COMPARTILHAMENTO DA IMPRESSORA é "EPSON".
O QUE PODE SER /
obrigado leopoldo e demais.
NIL,
Na máquina local o compartilhamento não funciona, por isso que eu coloquei um tratamento de erro em um trecho de código lá no inÃcio.
Na máquina local o compartilhamento não funciona, por isso que eu coloquei um tratamento de erro em um trecho de código lá no inÃcio.
Citação:
Tente esse código,
on error resume next
Open "\\NCaires\EPSON" For Output As #1
if err.number <> 0 then
open "lpt1" for output as #1
endif
.
.
.
o resto é o que você já fez
Obrigado Leopoldo,
Vou ter mesmo que testar onde esta a rede na loja .
Obrigado por sua atençao.
Nilson Caires
Vou ter mesmo que testar onde esta a rede na loja .
Obrigado por sua atençao.
Nilson Caires
Tópico encerrado , respostas não são mais permitidas