Печать на принтер этикеток с помощью Excel Macro

Question

Я работал над макросом, который нужно печатать на принтер этикеток, а не на сетевой принтер. Что бы я ни пытался, он отказывается переключаться с принтера по умолчанию на принтер этикеток.

Пожалуйста, посмотрите на следующий код и дайте мне знать, если вы видите что-то не так:

Private Sub CommandButton2_Click()

Dim Box As String
Box = MsgBox("Are you sure you want to print this label " _
& "?", vbQuestion + vbYesNo)
If Box = vbNo Then
Exit Sub
Else: ThisWorkbook.Worksheets("Label").PrintOut ActivePrinter:="MSP-Label2 on msp-dc-001"
End If
End Sub

Спасибо!

Answer 1

Я наконец понял это! Сработал следующий код:

Private Sub CommandButton1_Click()

Dim Box As String
Box = MsgBox("Are you sure you want to print this label " _
& "?", vbQuestion + vbYesNo)
If Box = vbNo Then
Exit Sub
Else: ThisWorkbook.Worksheets("Label").PrintOut ActivePrinter:="\\msp-dc-001\MSP-Label2 on Ne07"
End If
End Sub

Answer 2

Попробуйте позволить своему пользователю выбрать принтер, посмотрите, работает ли он:

Private Sub CommandButton2_Click()

Dim box As String
box = MsgBox("Are you sure you want to print this label?", vbQuestion + vbYesNo)

If box = vbNo Then
    Exit Sub
Else
    If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
    ThisWorkbook.Worksheets("Label").PrintOut Copies:=1
End If

End Sub