Drucker zurücksetzten auf Standartdrucker

Hallo Zusammen
Ich hätte da mal ne Frage. . .:
Ich habe eine Datei die meherere Benutzer nützen. Je nach Benutzerprofil ist somit ja auch der Standartdrucker anders.
Via VBA-Code drucke ich 2 Kopien auf dem Standartdrucker aus. Dies geht auch. Nun soll ich aber jeweils eine Kopie zusätzlich auf einem bestimmten Drucker drucken. Auch dies geht.
Mein Problem ist, dass der gewählte Drucker auf dem bestimmten "hängen" bleibt und nicht wieder zurück auf den Standartdrucker geht.
Hier mein Code:
...
' 1. druck (Standartdrucker)
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
' 2. druck (bestimmter Drucker)
If ActiveSheet.Range("A16") = "Kunstharzgrösse:" Then
Application.ActivePrinter = "\\Pfad\DR_RAHMEN auf Ne02:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("History").Range("D" & Zeile) = "Produktion gedruckt"
End If
End Sub
Hat jemand eine Idee?
Grüsschen aus der Schweiz
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

HAllo
Dein erster Druck geht über den momentan aktiven Drucker (das ist zwar oft der Standard-Drucker, aber eben nicht immer).
Das ist mir auch neu.
Dachte bisher immer das der ActivePrinter auch dert Standarddrucker ist.
Schaut mal ob hiermit etwas anfangen könnt:

Option Explicit

Public Sub Aufruf()
MsgBox find_Standarddrucker
End Sub

Public Function find_Standarddrucker()
Dim objWMI As Object, objItem As Object, I
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
    ExecQuery("Select * from Win32_Printer")
On Error Resume Next
For Each objItem In objWMI
    For Each I In objItem.properties_
            If I.Name = "Default" Then
            If I.Value = True Then
                find_Standarddrucker = objItem.properties_("Caption")
                Exit Function
            End If
        End If
    Next
Next
Set objWMI = Nothing
End Function

Public Sub Standarddrucker_Setzen()
Dim WSHNetwork As Object
Dim Alle_Drucker
Dim I As Integer
Set WSHNetwork = CreateObject("WScript.Network")
Set Alle_Drucker = WSHNetwork.EnumPrinterConnections
For I = 1 To Alle_Drucker.Count Step 2
    Debug.Print Alle_Drucker.Item(I)
    ' Z.B. PDF-Drucker als DefaultPrinter setzen
    ' If Alle_Drucker.Item(I ) Like "*PDF*" Then
    ' WSHNetwork.setdefaultprinter Alle_Drucker.Item(I )
    ' Exit For
    ' End If
Next
End Sub

ransi

Sub test() Dim actpri As String actpri = Application.ActivePrinter MsgBox actpri 'Druckerauswahl öffnen - HIER BITTE ZUM TESTEN EINEN ANDEREN DRUCKER WÄHLEN!!! Application.Dialogs(xlDialogPrinterSetup).Show MsgBox Application.ActivePrinter 'Den "Urpsrungs-"Drucker wieder aktivieren Application.ActivePrinter = actpri MsgBox Application.ActivePrinter End Sub

Sub Druck() 'aktuellen Standarddrucker feststellen Standard = Application.ActivePrinter 'hier Deine Druckroutine..... 'alten Standarddrucker wieder einrichten Application.ActivePrinter = Standard End Sub

Beliebteste Forumthreads (12 Monate)

Drucker zurücksetzten auf Standartdrucker

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread