leider habe ich zu meinem Wunsch im Forum nichts gefunden,
bzw. das "Gefundene" funtkionierte nicht.
Ich möchte mit einem Makro den Standard-Drucker wechseln.
Weiss jemand eine Lösung.
Jetzt schon bedanke ich mich für eine Hilfe.
Markus
Sub Drucker_Test()
Dim sPrinter As String
Application.Dialogs(xlDialogPrinterSetup).Show
sPrinter = ActivePrinter
If Standard_Drucker(sPrinter) Then
MsgBox "Drucker umgestellt auf:" & vbCr & sPrinter, vbInformation
Else
MsgBox "Fehler aufgetreten!", vbCritical
End If
End Sub
Function Standard_Drucker(ByRef sPrinterName As String) As Boolean
Dim objWSHNetwork As Object
On Error GoTo ErrorH:
Set objWSHNetwork = CreateObject("WScript.Network")
sPrinterName = Left$(sPrinterName, InStr(sPrinterName, " auf") - 1)
objWSHNetwork.SetDefaultPrinter sPrinterName
Standard_Drucker = True
ErrorH:
Set objWSHNetwork = Nothing
End Function
Gruß TinoSub Drucker_Test()
Dim sPrinter As String
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
sPrinter = ActivePrinter
If Standard_Drucker(sPrinter) Then
MsgBox "Drucker umgestellt auf:" & vbCr & sPrinter, vbInformation
Else
MsgBox "Fehler aufgetreten!", vbCritical
End If
End Sub
Function Standard_Drucker(ByRef sPrinterName As String) As Boolean
Dim objWSHNetwork As Object
On Error GoTo ErrorH:
Set objWSHNetwork = CreateObject("WScript.Network")
sPrinterName = Left$(sPrinterName, InStr(sPrinterName, " auf") - 1)
objWSHNetwork.SetDefaultPrinter sPrinterName
Standard_Drucker = True
ErrorH:
Set objWSHNetwork = Nothing
End Function