CAMINHO FISICO DA IMPRESSORA
Vamos supor a seguinte situação.
Ao escolher um item o mesmo deverá ser impresso de acordo com a categoria em uma determinada impressora.
Exemplo:
Carne: Impressora da cozinha
Cerveja: impressora do bar
As impressoes sao com o objeto PRINT do VB6
como eu pego a porta e o caminho de cada impressora
e como eu faço isso no [Ô]print[Ô]?
Ao escolher um item o mesmo deverá ser impresso de acordo com a categoria em uma determinada impressora.
Exemplo:
Carne: Impressora da cozinha
Cerveja: impressora do bar
As impressoes sao com o objeto PRINT do VB6
como eu pego a porta e o caminho de cada impressora
e como eu faço isso no [Ô]print[Ô]?
Ninguem
Olá amigo, eu faço isso em meus sistemas onde uso varias impressoras e faço assim:
tenho uma tela onde determino qual impressora faz o que, por exemplo
criei uma rotina que lista todas as impressoras instaladas e seleciono a desejada
Imprimir cupom = impressora 1
Imprimir relatorios = impressora 2
imprimir etiquetas = impressora 3
faço esta checagem uma unica vez ao instalar o sitema, ou ao instalar novas impressoras, e isso fica gravado em arquivo INI, depois na hora da impressão é só ler o arquivo ini e ver qual a impressora está pré configurada para a impressão em questão:
na hora de imprimir faço assim:
em Referencias Adiciona a opção : Windows Script Host Object Model
tenho uma tela onde determino qual impressora faz o que, por exemplo
criei uma rotina que lista todas as impressoras instaladas e seleciono a desejada
Imprimir cupom = impressora 1
Imprimir relatorios = impressora 2
imprimir etiquetas = impressora 3
faço esta checagem uma unica vez ao instalar o sitema, ou ao instalar novas impressoras, e isso fica gravado em arquivo INI, depois na hora da impressão é só ler o arquivo ini e ver qual a impressora está pré configurada para a impressão em questão:
na hora de imprimir faço assim:
em Referencias Adiciona a opção : Windows Script Host Object Model
[ô]rotina para imprimir
Dim W As New WshNetwork
Dim ImpPadrao As String
ImpPadrao = Printer.DeviceName [ô] guarda o nome da impressora padrão atual
If ImpPadrao <> [Ô]Epson Stylus T50[Ô] Then
W.SetDefaultPrinter ([Ô]Epson Stylus T50[Ô]) [ô] seta a impressora pré determinada no INI como padrão para imprimir
End If
W.SetDefaultPrinter ImpPadrao [ô] volta tudo ao nomal sem que o usuário nem saiba que a impressora padrão tinha sido alterada
Tópico encerrado , respostas não são mais permitidas