☰

Excel VBA configura la impresora como impresora compartida

tag-icon • tag-icon microsoft-excel vba
Excel VBA configura la impresora como impresora compartida

Tengo un VBA largo copiando celdas de una página a otra e intentando imprimir 3 páginas en diferentes impresoras.

El siguiente código no parece cambiar la impresora predeterminada y, por lo tanto, todas las páginas se envían a la misma impresora.

 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

He utilizado printPreview para ahorrar papel desperdiciado en la impresora.

¿Alguien puede ayudarme a configurar una impresora para cada página?

Gracias

Respuesta1

Acabo de probar su código y pude cambiar de impresora con éxito.

Creo que lo más probable es que haya un error ortográfico en el nombre de su impresora.

¿Quizás LableWriter debería ser LabelWriter?

Para determinar cuál debe ser el nombre de la impresora, le sugiero cambiar manualmente su impresora activa, luego hacer algo como a Debug.Print Application.ActivePrintery comparar cuidadosamente el resultado de su cadena con lo que está especificando.

información relacionada