Excel VBA definir impressora para impressora compartilhada

Eu tenho um longo VBA copiando células de uma página para outra e tentando imprimir 3 páginas para impressoras diferentes.

O código abaixo não parece estar alterando a impressora padrão e, assim, todas as páginas são enviadas para a mesma impressora.

 For i = 0 To 15
    curNePrint = Format(i, "00")
    On Error Resume Next
        Application.ActivePrinter = "\\AtanaWin7PC3\DYMO LableWriter 450 on ne" & curNePrint & ":"
    Next i
 Worksheets(le).PrintPreview

Eu usei printPreview para economizar papel desperdiçado na impressora.

Alguém pode me ajudar aqui na configuração de uma impressora para cada página.

obrigado

microsoft-excel vba

— Ryan Gray
fonte

Experimentei o seu código e consegui alterar as impressoras com sucesso.

Eu acho que é mais provável que haja um erro de ortografia no nome da sua impressora.

Talvez o LableWriter deva ser LabelWriter?

Para determinar qual deve ser o nome da impressora, sugiro alterar manualmente sua impressora ativa e, em seguida, fazer algo como Debug.Print Application.ActivePrinter e compare cuidadosamente o resultado da sua string com o que você está especificando.

— S Barry
fonte

O OP também pode enumerar a lista de impressoras usando Application.Printers ( msdn.microsoft.com/pt-br/vba/access-vba/articles/… ) E use instr() identificar impressoras com "DYMO"

— Yorik

@Yorik É um bom pensamento, mas parece que o seu link é para o Access, em vez de Excel. Não consigo encontrar uma propriedade correspondente para o Excel.

— S Barry

Ah, eu senti falta disso. Pode ainda ser possível através de uma chamada de sistema

— Yorik

Oi, obrigado pela resposta, agora eu tenho este trabalho, você sabe como eu posso mudar a impressão da bandeja?

— Ryan Gray

Ryan, eu não acho que você pode fazer isso através do Excel VBA, mas isso pode ser útil: excelforum.com/excel-programming-vba-macros/…

— S Barry