☰

Excel VBA Drucker auf freigegebenen Drucker einstellen

tag-icon • tag-icon microsoft-excel vba
Excel VBA Drucker auf freigegebenen Drucker einstellen

Ich habe ein langes VBA, das Zellen von einer Seite auf eine andere kopiert und versucht, drei Seiten auf verschiedenen Druckern auszudrucken.

Der folgende Code scheint den Standarddrucker nicht zu ändern und daher werden alle Seiten an denselben Drucker gesendet.

 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

Ich habe printPreview verwendet, um Papierverschwendung beim Drucker zu vermeiden.

Kann mir hier jemand helfen, für jede Seite einen Drucker einzurichten?

Danke

Antwort1

Habe gerade Ihren Code ausprobiert und konnte den Drucker erfolgreich wechseln.

Ich denke, dass der Name Ihres Druckers höchstwahrscheinlich einen Rechtschreibfehler enthält.

Vielleicht sollte LableWriter LabelWriter sein?

Um den richtigen Druckernamen zu ermitteln, empfehle ich, den aktiven Drucker manuell zu ändern und dann etwas wie Folgendes auszuführen Debug.Print Application.ActivePrinterund Ihr Zeichenfolgenergebnis sorgfältig mit dem von Ihnen angegebenen zu vergleichen.

verwandte Informationen