Wer aufhört sich zu verbessern, hört auf gut zu sein.

''''''''''''''''''''''''''
'Durcker-Name merken, um diesen später wieder einzustellen
    m_pdf_AltDrucker = Application.ActivePrinter
 
 
'' hier Dein Programm …
 
 
 
'Drucker zurückstellen auf den vorher gemerkten Durcker-Namen
    If Len(m_pdf_AltDrucker) > 0 Then
        Application.ActivePrinter = m_pdf_AltDrucker
    End If

Gruß aus Mittelfranken
Heinz

Wer aufhört sich zu verbessern, hört auf gut zu sein.

 Dim oP As Object
   Dim oPs As Object
   Dim oW As Object
   Dim strComputer As String
 
   strComputer = "."
   Set oW = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set oPs = oW.ExecQuery("SELECT * FROM Win32_Printer")
 
   For Each oP In oPs
        If InStr(UCase(oP.Caption), "ONENOTE") > 0 Then
           oP.SetDefaultPrinter
           Exit For
        End If
   Next

Wer aufhört sich zu verbessern, hört auf gut zu sein.