Etiket printen op aparte printer met macro

Sub PrinterTechnique()
    Dim sCurrentPrinter as String
    Dim sPDFwriter as String

    ' save current printer name, then change to PDF writer
    sCurrentPrinter = Application.ActivePrinter
    Application.ActivePrinter = "Microsoft Print to PDF"

    ' print document, then go back to the original printer
    ActiveDocument.PrintOut
    Application.ActivePrinter = sCurrentPrinter

End Sub

Option Explicit

Public Sub ListPrinters()

    Const HKEY_CURRENT_USER = &H80000001

    Dim aOn As Variant
    Dim aPrinter As Variant
    Dim aType As Variant
    Dim sKey As String
    Dim sOn As String
    Dim sPort As String
    Dim sPrinter As String
    Dim sValue As String
    Dim vPrinter As Variant

    sKey = "Software\Microsoft\Windows NT\CurrentVersion\Devices"

    aOn = Split(Application.ActivePrinter, " ")
    sOn = aOn(UBound(aOn) - 1)

    With GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        .EnumValues HKEY_CURRENT_USER, sKey, aPrinter, aType
        For Each vPrinter In aPrinter
            .GetStringValue HKEY_CURRENT_USER, sKey, vPrinter, sValue
            sPort = Split(sValue, ",")(1)
            sPrinter = sPrinter & vbCrLf & vPrinter & " " & sOn & " " & sPort
        Next
    End With
    
    MsgBox sPrinter

End Sub