Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

aktuell eingestelltes Ausgabefach Drucker?

aktuell eingestelltes Ausgabefach Drucker?
20.02.2015 18:32:29
Tino
Hallo Leute,
kenn ihr eine Funktion oder möglichkeit um beim aktuellen Drucker
das gewählte Druckerfach zu bestimmen?
Beispiel:
Im Excel stelle ich in den Druckereigenschaften als ausgabefach
das Fach 1, 2 oder 3 … oder auch automatisch ein.
Nun möchte ich dieses Fach ermitteln um es in einem Label anzuzeigen.
Gruß Tino

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Win32_PrinterConfiguration oder Win32_Printer ?
20.02.2015 20:30:13
ransi
Hallo Tino,
Schau mal ob du hier fündig wirst:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


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


Public Sub test2()
Dim objWMI As Object, objItem As Object, I, c
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_
            c = c + 1
        Cells(c, 1) = I.Name
        Cells(c, 2) = I.Value
    Next
    c = c + 1
Next
Set objWMI = Nothing
End Sub



Public Sub test3()
Dim objWMI As Object, objItem As Object, I, c
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
    ExecQuery("Select * from Win32_PrinterConfiguration")
On Error Resume Next
For Each objItem In objWMI
    For Each I In objItem.properties_
            c = c + 1
        Cells(c, 1) = I.Name
        Cells(c, 2) = I.Value
    Next
    c = c + 1
Next
Set objWMI = Nothing
End Sub


ransi

Anzeige
werde es versuchen, melde mich wieder oT.
20.02.2015 20:40:36
Tino

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige