Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

fRage zu Standarddrucker wechseln - Code von hier
Autor: KevinFreetz
Datum: 07.01.09 12:05
Hallo, ich möchte in einem VB-Projekt den Standarddrucker von "HP Laser" auf "Canon 1" ändern. Dazu habe ich im Forum folgenden Code gefunden, den ich ncht einzusezten weis: ' 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 Wie hinterlege ich hier meine Druckernamen? Oder wie muß ich das machen??? Grüße von der Küste kev

fRage zu Standarddrucker wechseln - Code von hier	1.157	KevinFreetz	07.01.09 12:05
Re: fRage zu Standarddrucker wechseln - Code von hier	732	Dieter	07.01.09 12:45
Re: fRage zu Standarddrucker wechseln - Code von hier	696	KevinFreetz	07.01.09 14:34
Re: fRage zu Standarddrucker wechseln - Code von hier	716	Dirk	07.01.09 15:15
Re: fRage zu Standarddrucker wechseln - Code von hier	709	KevinFreetz	07.01.09 15:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen