vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Drucker   |   VB-Versionen: VB5, VB609.11.05
Standard-Drucker systemweit festlegen (WScript)

Mit diesem Code lässt sich der Standarddrucker schnell und unkompliziert systemweit festlegen.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  14.336 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 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

Dieser Tipp wurde bereits 14.336 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel