PRINT NA USB
BOA NOITE,
TENHO UMA IMPRESSORA DIEBOLD (NAO FISCAL) DA QUAL FOI LIGADA A UM NOTEBOOK POR UM CABO ADAPTADOR LPT PARA USB (PQ O NOTEBOOK NAO TEM LPT)
DAI TENHO COMANDOS PARA IMPRIMIR DIRETO PARA IMPRESSORA USANDO O PRINT
FIZ O SEGUINTE E NAO DEU CERTO:
OPEN [Ô]USB001[Ô] FOR OUTPUT AS #1
PRINT #1, [Ô]TESTE[Ô]
CLOSE #1
E NAO DEU CERTO, NADA IMPRIME, O Q EU DEVO FAZER PARA IMPRIMIR?
TENHO UMA IMPRESSORA DIEBOLD (NAO FISCAL) DA QUAL FOI LIGADA A UM NOTEBOOK POR UM CABO ADAPTADOR LPT PARA USB (PQ O NOTEBOOK NAO TEM LPT)
DAI TENHO COMANDOS PARA IMPRIMIR DIRETO PARA IMPRESSORA USANDO O PRINT
FIZ O SEGUINTE E NAO DEU CERTO:
OPEN [Ô]USB001[Ô] FOR OUTPUT AS #1
PRINT #1, [Ô]TESTE[Ô]
CLOSE #1
E NAO DEU CERTO, NADA IMPRIME, O Q EU DEVO FAZER PARA IMPRIMIR?
Cara nesse caso vc poderia até fazer uma adaptação,
compartilha a impressora e mapeia a lpt para o endereço dessa impressora na rede, tipo assim....
net uset lpt1: \\ocomputador\aimpressora_usb
isso em um arquivo bat q inicia junto com o computador, se vc não souber com faz posta aê de novo,
dar o comando print direto na usb não sei se tem como.
Falowwww
compartilha a impressora e mapeia a lpt para o endereço dessa impressora na rede, tipo assim....
net uset lpt1: \\ocomputador\aimpressora_usb
isso em um arquivo bat q inicia junto com o computador, se vc não souber com faz posta aê de novo,
dar o comando print direto na usb não sei se tem como.
Falowwww
esse tópico é exatamente o que eu procurava...
conforme o WILLVIDAL falou funciona sim perfeitamente, pois sempre fiz isso...
só que gostaria de saber se o visual basic tem como identificar quais as impressoras que estao compartilhadas NO PROPRIO COMPUTADOR... para que o usuario nao precise saber colocar esses comandos manualmente...
por exempoo: gostaria que a opcao \
omedocomputador\impressora aparecesse numa lista para o usuario selecionar
é possivel?
conforme o WILLVIDAL falou funciona sim perfeitamente, pois sempre fiz isso...
só que gostaria de saber se o visual basic tem como identificar quais as impressoras que estao compartilhadas NO PROPRIO COMPUTADOR... para que o usuario nao precise saber colocar esses comandos manualmente...
por exempoo: gostaria que a opcao \
omedocomputador\impressora aparecesse numa lista para o usuario selecionar
é possivel?
vc nem precisa mapear a lpt , pode mandar a impressão direto:
OPEN [Ô]\\MICRO\COMPARTILHAMENTO[Ô] FOR OUTPUT AS #1
OPEN [Ô]\\MICRO\COMPARTILHAMENTO[Ô] FOR OUTPUT AS #1
Citação::
vc nem precisa mapear a lpt , pode mandar a impressão direto:
OPEN [Ô]\MICROCOMPARTILHAMENTO[Ô] FOR OUTPUT AS #1
sim, tudo bem.. assim funciona..
mas queria poder exibir as impressoras compartilhadas para o usuario apenas selecionar
o nome do computador eu consigo pegar facinho, mas o nome do compartolhamento, como pegar?
\
ome_do_computador
ome_do_compartilhamento
bem, uma das minhas solucoes foi quando o cliente digitar \\ automaticamente aparece o nome do computador mais uma \ (barra invertida)
entao é só digitar o nome do compartilhamento da impressora..
isso ja ajuda, pois muitas vezes o cliente nao sabe qual o nome do computador, e muitas vezes o nome do computador é cheio de letras e numeros...
entao é só digitar o nome do compartilhamento da impressora..
isso ja ajuda, pois muitas vezes o cliente nao sabe qual o nome do computador, e muitas vezes o nome do computador é cheio de letras e numeros...
tenta compartilhar a impressora no próprio note, com o nome do compartilhamento sendo IMP_USB_NOTE
no programa, tenta usar assim e veja se funciona:
OPEN [Ô]\\127.0.0.1\IMP_USB_NOTE[Ô] FOR OUTPUT AS #1
PRINT #1, [Ô]TESTE 1[Ô]
PRINT #1, [Ô]TESTE 2[Ô]
PRINT #1, [Ô]TESTE 3[Ô]
CLOSE #1
não tenho certeza que vá funcionar, massssss.... não custa né :)
no programa, tenta usar assim e veja se funciona:
OPEN [Ô]\\127.0.0.1\IMP_USB_NOTE[Ô] FOR OUTPUT AS #1
PRINT #1, [Ô]TESTE 1[Ô]
PRINT #1, [Ô]TESTE 2[Ô]
PRINT #1, [Ô]TESTE 3[Ô]
CLOSE #1
não tenho certeza que vá funcionar, massssss.... não custa né :)
tente pegar o nome da impressora assim
VarNomeImpressora = Trim(GetProfile([Ô]IMPRESSORA[Ô], [Ô]IMPRESSORA[Ô], [Ô][Ô], App.Path & [Ô]\IMPRESSORA.INI[Ô]))
VarNomeImpressora = Trim(GetProfile([Ô]IMPRESSORA[Ô], [Ô]IMPRESSORA[Ô], [Ô][Ô], App.Path & [Ô]\IMPRESSORA.INI[Ô]))
Citação::
tente pegar o nome da impressora assim
VarNomeImpressora = Trim(GetProfile([Ô]IMPRESSORA[Ô], [Ô]IMPRESSORA[Ô], [Ô][Ô], App.Path & [Ô]IMPRESSORA.INI[Ô]))
mas nao seria o nome da impressora, seria o NOME DO COMPARTILHAMENTO da impressora
[txt-size=2][txt-color=#e80000]por favor pessoal...
é possÃvel listar as impressoras que estão compartilhadas nos outros computadores da rede?[/txt-color][/txt-size]
[txt-color=#0000f0]
quero que carrega por exemplo em um COMBO as impressoras que estao nos outros computadores...
com impressoras do computador eu consegui, o problema é nos outros computadores[/txt-color]
é possÃvel listar as impressoras que estão compartilhadas nos outros computadores da rede?[/txt-color][/txt-size]
[txt-color=#0000f0]
quero que carrega por exemplo em um COMBO as impressoras que estao nos outros computadores...
com impressoras do computador eu consegui, o problema é nos outros computadores[/txt-color]
Tópico encerrado , respostas não são mais permitidas