Drucker auslesen, auswählen und drucken

Hallo zusammen,
Habe den Code, den ich hier gefunden habe, bei mir eingebaut:
https://www.herber.de/mailing/volumina/168902x.htm
Mit diesem Code werden alle installierten Drucker ausgelesen.
Die Druckernamen lasse ich in eine Combobox füllen. Leider komm ich irgendwie nicht weiter. Wie kann ich nun auf dem ausgewählten Drucker drucken. Das Problem ist, dass der Wert in der ComboBox z.B. "Drucker1" ist, jedoch zum drucken der Wert "Drucker1 auf USB0001" nötig ist. Leider kann ich nicht statisch den String "auf USB 001" anhängen, den der Code soll auf verschiedenen Computern mit unterschiedlichen Netzwerkdruckern ausgeführt werden.
Ich hoffe, ihr versteht mein Problem und könnt mir helfen.
Vielen Dank und Gruss
Raffi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Die Druckernamen sind bekannt, daher nur mehr den Drucker wechseln. Hier ein Beispiel wie das geht. Du mußt nur den Druckernamen mittels Variablen einsetzen. Konnte es nur unter Office 2000 testen.

Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" _
(ByVal lpszSection As String, ByVal lpszKeyName As String, _
ByVal lpszString As String) As Long
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
Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const HWND_BROADCAST = &HFFFF&
Public Const WM_WININICHANGE = &H1A
Dim DruckerName As String
Sub Ausdrucken()
Call Drucker_Wechseln("OKIPAGE 10ex LPT1")
'Sheets(1).PrintOut
'Call Drucker_Wechseln("hp deskjet 990c series")
End Sub
Sub Drucker_Wechseln(DruckerName As String)
    SetDefaultPrinter DruckerName
End Sub
Public Function SetDefaultPrinter(PrName As String)
' Parameter: Druckername
' Rückgabewert: Erfolg der Aktion
Dim Buffer As String, RW, Tmp As String
On Error GoTo Er
Buffer = String(255, 0)
RW = GetProfileString(ByVal "devices", ByVal PrName, ByVal "", Buffer, Len(Buffer))
If RW <= 0 Then
    SetDefaultPrinter = False
    Exit Function
Else
    Tmp = PrName & "," & Mid(Buffer, 1, RW)
End If
' Standarddrucker setzen
RW = WriteProfileString(ByVal "Windows", ByVal "Device", ByVal Tmp)
If RW <> 1 Then
SetDefaultPrinter = False
Exit Function
End If
' und mitteilen, daß sich die WIN.INI geändert hat
RW = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0&, 0&)
SetDefaultPrinter = True
Ex:
Exit Function
Er:
MsgBox "SetDefaultPrinter: " & Err.Description
SetDefaultPrinter = False
Resume Ex
Mit freundlichen Grüßen, GraFri

Beliebteste Forumthreads (12 Monate)

Drucker auslesen, auswählen und drucken

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Drucker auslesen, auswählen und drucken

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread