Rubrik: Drucker | VB-Versionen: VB5, VB6 | 09.11.05 |
Standard-Drucker systemweit festlegen (WScript) Mit diesem Code lässt sich der Standarddrucker schnell und unkompliziert systemweit festlegen. | ||
Autor: Dieter Otter | Bewertung: | Views: 16.976 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Das systemweite Ändern des Standard-Druckers ist gar nicht so einfach. Normalerweise benötigt man hierfür eine Menge an API-Funktionen und muss dann sogar noch das installierte Betriebssystem berücksichtigen.
Mit dem Windows-Scripting-Host lässt sich das Ganze jedoch sehr schnell und unkompliziert erledigen, wie nachfolgender Code zeigt:
' Standarddrucker systemweit festlegen Public Function SetDefaultPrinter(ByVal sPrinterName As String) As Boolean ' Fehlerbehandlung aktivieren On Error Goto ErrHandler ' Verweis auf das Windows-Scripting-Objekt Dim oWScript As Object Set oWScript = CreateObject("WScript.Network") ' Standarddrucker neu festlegen oWScript.SetDefaultPrinter sPrinterName ' Objekt wieder zerstören Set oWScript = Nothing ' Druckerwechsel erfolgreich! On Error Goto 0 SetDefaultPrinter = True Exit Function ErrHandler: ' Druckerwechsel konnte nicht durchgeführt werden ' Entweder konnte das WScript-Objekt nicht instanziert werden ' oder es wurde ein ungültiger Druckername angegeben On Error Goto 0 SetDefaultPrinter = False End Function