☰

Excel VBA configura impressora para impressora compartilhada

tag-icon • tag-icon microsoft-excel vba
Excel VBA configura impressora para impressora compartilhada

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

O código abaixo não parece alterar a impressora padrão e, portanto, 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

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

Responder1

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

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

Talvez LableWriter devesse ser LabelWriter?

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

informação relacionada