Makro einen bestimmten Drucker zuordnen?

jonas · 2014-05-03T11:37:49+00:00

Servus Leute, ich hab ein kleines Problem und hoffe jemand kann mir helfen. Ich habe ein Makro mit dem ich einen Druckbereich drucken möchte, allerdings habe ich zwei unterschiedliche Drucker. Wenn ich auf das Makro klicke, wird immer der Standartdrucker ausgewählt, ich bräuchte aber den anderen. Wie muss ich den Code schreiben damit das Funktioniert? Standartdrucker: Lexmark Universal XL Drucker der angesteuert werden soll: Epson LQ 680 ESC/ P 2 Der derzeitige Code sieht so aus: Sub Privatwäsche15() ' Privatwäsche15 Makro Range("A3:C31").Select ActiveSheet.PageSetup.PrintArea = "$A$3:$C$31" End Sub Vielen Dank im Voraus!

Hallo,
versuch mal so.

Sub Privatwäsche15()
Dim aktPrinter$, newPrinter$
aktPrinter = Application.ActivePrinter
newPrinter = Find_Drucker("Epson LQ 680 ESC/ P 2*")
If newPrinter <> "" Then
    Application.ActivePrinter = newPrinter
        DoEvents
    ActiveSheet.PageSetup.PrintArea = "$A$3:$C$31"
        DoEvents
    Application.ActivePrinter = aktPrinter
Else
    MsgBox "Drucker Epson LQ 680 ESC/ P 2 nicht gefunden"
End If
End Sub

Function Find_Drucker(LikeName$) As String
Const HKEY_current_user = &H80000001
Dim oReg As Object, i As Long
Dim strKeyPath As String, strValue As String, msg As String
Dim arrPrinter As Variant
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
oReg.EnumValues HKEY_current_user, strKeyPath, arrPrinter
For i = 0 To Ubound(arrPrinter)
    If arrPrinter(i) Like LikeName Then
        oReg.GetStringValue HKEY_current_user, strKeyPath, arrPrinter(i), strValue
        Find_Drucker = arrPrinter(i) & Replace(strValue, "winspool,", " auf ")
        Exit Function
    End If
Next
Set oReg = Nothing
End Function

Gruß Tino

Hab jetzt den Code eingefügt, passiert aber nichts :-)

Sub Privatwäsche15()
Dim aktPrinter$, newPrinter$
aktPrinter = Application.ActivePrinter
newPrinter = Find_Drucker("Epson LQ-680 ESC/P 2*")
If newPrinter  "" Then
Application.ActivePrinter = newPrinter
DoEvents
ActiveSheet.PageSetup.PrintArea = "$A$3:$C$31"
DoEvents
Application.ActivePrinter = aktPrinter
Else
MsgBox "Drucker Epson LQ-680 ESC/P 2 nicht gefunden"
End If
End Sub

Function Find_Drucker(LikeName$) As String
Const HKEY_current_user = &H80000001
Dim oReg As Object, i As Long
Dim strKeyPath As String, strValue As String, msg As String
Dim arrPrinter As Variant
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
oReg.EnumValues HKEY_current_user, strKeyPath, arrPrinter
For i = 0 To UBound(arrPrinter)
If arrPrinter(i) Like LikeName Then
oReg.GetStringValue HKEY_current_user, strKeyPath, arrPrinter(i), strValue
Find_Drucker = arrPrinter(i) & Replace(strValue, "winspool,", " auf ")
Exit Function
End If
Next
Set oReg = Nothing
End Function

Makro einen bestimmten Drucker zuordnen?

Forumthread: Makro einen bestimmten Drucker zuordnen?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial