IMPRESSAO DIRETA EM VARIAS IMPRESSORAS

MAUTATTOO 03/09/2007 11:37:51
#233839
OLA PESSOAL,
VENHO MAIS UMA VEZ PEDIR AJUDA.
USO O VB6.0 E O CRYSTAL 8.5
O PROBLEMA é O SEGUINTE.
O SISTEMA ESTA INTALADO EM UMA UNICA MAQUINA, MAS AS IMPRESSORAS ESTÃO EM REDE. E O SISTEMA TEM QUE IMPRIMIR EM VARIAS IMPRESSORAS DIFERENTES SEM QUE O USUARIO INFORME NADA!!!
EX.
BOLETO VAI PARA IMPRESSORA LX300(BOLETA) COM O FORMULÁRIO DE BOLETO
NOTA FISCAL VAI DIRETO PARA LX300(NF) COM FORMULÁRIO DE NOTA FISCAL
ORÇAMENTO VAI DIRETO PARA UMA HP(ORÇAMENTO) QUE é A IMPRESSORA PADRÃO

COMO POSSO FAZER QUE O SISTEMA MANDE DIRETO PARA A IMPRESSORA CORRETA SEM QUE O USUARO TENHA QUE SELECIONA-LA?

GALERA... VALEU!!!
MJAC 03/09/2007 14:17:08
#233884 Resposta escolhida
Amigo crie essa rotina:

Public Sub TrocaParaImpressora(NomeDaImpressora As String)
    For Each x In Printers
        If NomeDaImpressora = x.DeviceName Then
            If Printer.DeviceName <> x.DeviceName Then Set Printer = x
            Exit For
        End If
    Next
End Sub


Depois use ela assim:

Private Sub Command1_Click()
    TrocaParaImpressora "LX300(BOLETA)"
    Printer.Print "Suas informações da boleta"
    Printer.EndDoc
    
    TrocaParaImpressora "LX300(NF)"
    Printer.Print "Suas informações da Nota Fiscal"
    Printer.EndDoc
    
    'E assim continua....
End Sub


Tenta ai e me fala... Abraços...

Não se esqueça de encerrar o tópico quando o problema estiver solucionado.
Tópico encerrado , respostas não são mais permitidas
Voltar