Office: (Office 2007) (XLS) Druckernamen auslesen und anzeigen

Markus2005 · 22. November 2005

wie kann man die Druckernamen in Excel auslesen?
Und ggf. spaeter in einer Combo-Box darstellen um diese dann auszuwaehlen?

Danke
Im Moment:
Namensangabe des Default: Application.ActivePrinter
Auswahl ueber: Application.Dialogs(xlDialogPrinterSetup).Show

:)

bst · 24. November 2005

Hallo Markus,

dieses IMHO geniale Teil ist von Nepumuk.

cu, Bernd
--
Code:

Option Explicit

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" ( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) As Long

Private Const MAX_PRINTERS = 16

Private strPrinterNames(MAX_PRINTERS) As String
Private strPrinterDrivers(MAX_PRINTERS) As String
Private strPrinterPorts(MAX_PRINTERS) As String
Private intPrinterCount As Integer

Public Sub prcGetPrinterList()
Dim strBuffer As String
Dim intIndex As Integer
strBuffer = Space$(8192)
GetProfileString "PrinterPorts", vbNullString, "", _
strBuffer, Len(strBuffer)
prcGetPrinterNames strBuffer
prcGetPrinterPorts
For intIndex = 0 To intPrinterCount
Debug.Print strPrinterNames(intIndex), _
strPrinterPorts(intIndex), _
strPrinterDrivers(intIndex)
Next
End Sub

Private Sub prcGetPrinterNames(ByVal strBuffer As String)
Dim intIndex As Integer
Dim strName As String
intPrinterCount = 0
Do
intIndex = InStr(strBuffer, Chr(0))
If intIndex > 0 Then
strName = Left$(strBuffer, intIndex - 1)
If Len(Trim$(strName)) > 0 Then
strPrinterNames(intPrinterCount) = Trim$(strName)
intPrinterCount = intPrinterCount + 1
End If
strBuffer = Mid$(strBuffer, intIndex + 1)
Else
If Len(Trim$(strBuffer)) > 0 Then
strPrinterNames(intPrinterCount) = Trim$(strBuffer)
intPrinterCount = intPrinterCount + 1
End If
strBuffer = ""
End If
Loop While (intIndex > 0) And (intPrinterCount < MAX_PRINTERS)
End Sub

Private Sub prcGetPrinterPorts()
Dim strBuffer As String
Dim intIndex As Integer
For intIndex = 0 To intPrinterCount - 1
strBuffer = Space$(1024)
GetProfileString "PrinterPorts", strPrinterNames(intIndex), "", _
strBuffer, Len(strBuffer)
prcGetDriverAndPort strBuffer, strPrinterDrivers(intIndex), _
strPrinterPorts(intIndex)
Next
End Sub

Private Sub prcGetDriverAndPort(ByVal Buffer As String, _
DriverName As String, PrinterPort As String)
Dim intDriver As Integer
Dim intPort As Integer
DriverName = ""
PrinterPort = ""
intDriver = InStr(Buffer, ",")
If intDriver > 0 Then
DriverName = Left$(Buffer, intDriver - 1)
intPort = InStr(intDriver + 1, Buffer, ",")
If intPort > 0 Then
PrinterPort = Mid$(Buffer, intDriver + 1, _
intPort - intDriver - 1)
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 24. November 2005

Hallo Markus,

hier noch eine Variante:

Private Sub UserForm_Activate()
'installierte Drucker ermitteln und in ComboBox cmbDrucker einfügen
Set objNetzwerk = CreateObject("WScript.Network")

Set oDrucker = objNetzwerk.EnumPrinterConnections
For i = 0 To (oDrucker.Count - 1) Step 2
cmbDrucker.AddItem oDrucker(i + 1)
Next
cmbDrucker.ListIndex = 0
Set WshNetwork = Nothing
Set oDrucker = Nothing
End Sub

Rückmeldung wäre nett...

mfg

Markus2005 · 24. November 2005

kommt demnaechst - konnte es heute nicht mehr testen!

Markus2005 · 24. November 2005

hat geklappt!

Maxus · 25. November 2005

bei mir leider nicht. wo liegt denn das WScript.Network object ?

User · 25. November 2005

bei mir hier:
C:\WINDOWS\System32\wshom.ocx

Office: (Office 2007) (XLS) Druckernamen auslesen und anzeigen

(XLS) Druckernamen auslesen und anzeigen

(XLS) Druckernamen auslesen und anzeigen

(XLS) Druckernamen auslesen und anzeigen

(XLS) Druckernamen auslesen und anzeigen - Similar Threads - XLS Druckernamen auslesen

XLS Ausgabe einer Liste eindeutiger, vorhandener Kombinationen (MA + Team)

XLS hoher Genauigkeitsverlust, andere Formate speichern

In andere *.xls zählen mit Bedingung und ohne Duplikate

xls 97-2003 in Excel 2016 öffnen

Dateiformate pdf, xls in Konferenzfunktion

HTML Text in xls aufspalten

aus verschiedenen xls dateien auslesen und in ein formular auflisten