OBJETO PRINTER 2 IMPRESSORAS

MATHEUS 02/12/2009 18:14:01
#329011
Boa tarde pessoal,

Estou com um problema, será que alguém pode me ajudar

é o seguinte:
Tenho um micro com 2 impressoras(matricial, termica(não fiscal)), sendo que as 2 impressoras é pela SAIDA USB.

Quando for emitir romaneio, quero emitir na impressora termica.
Quando for emitir NF, quero emitir na Matricial(EPson Lx 300).

Usando o objeto Printer, como faço para emtir ora na impressora termica, ora na impressora Matricial.

Já usei o CommonDialog, mas não funciona emite apenas na impressora Padrão.

Existe um comando Printer que direciona para qual Impressora devo mandar os dados?

Obrigado,

Matheus
EDERMIR 02/12/2009 19:04:29
#329014 Resposta escolhida
Você pode alterar a impressora padão no momento da impressão da seguinte forma:
    Wimpress_padrao = Printer.DeviceName
    Wimpressora = Printer.DeviceName
    Wimpressfind = 0
    Wimpressora = [Ô]Kyocera FV[Ô]
    For Each x In Printers
        Wimpressfind = InStr(x.DeviceName, Wimpressora)
        If Wimpressfind <> 0 Then
            Set Printer = x
            Exit For
        End If
    Next x


Depois volte para a impressora padrão:
     Wimpressfind = 0
    For Each x In Printers
        Wimpressfind = InStr(x.DeviceName, Wimpress_padrao)
        If Wimpressfind <> 0 Then
            Set Printer = x
            Exit For
        End If
    Next x
MATHEUS 02/12/2009 19:11:08
#329015
Vou testar Edermir!!!

Por enquanto obrigado.

Matheus
EDERMIR 02/12/2009 22:05:30
#329022
MATHEUS, fiz uma pequena alteração no código de retorno por não serem necessárias as linhas retiradas.

O nome da impressora KYOCERA é o mesmo que se encontra na lista de impressoras do Windows, portanto é importante terem o mesmo nome nos equipamentos que utilizarão as impressoras. Você pode impedir a impressão por falta da impressora.
MATHEUS 03/12/2009 10:09:35
#329039
Fiz algumas alterações, mas funcionou, obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar