Standard-Drucker suchen

[czemmel]

Hallo zusammen,
ich habe folgendes Problem:
um in meiner Anwendung zu drucken muss ich kurzfrsitig den Standard-Drucker ändern.
Also ich dachte mir ich frage ab welches momentan der Standarddrucker ist und speichere dies in einer Variable.
Setze nun meinen Drucker als Standard und kann dann ausdrucken.
Zum Schluss setze ich wieder den alten.

Habe schon mit PrinterSettings und so herumprobiert, aber ich finde nichts.

Kann mir jemand helfen?

Gruß
Czemmel

 

[JensG]

Hallo czemmel,

Auslesen des Standardruckers:

Dim pd As New PrintDocument()


For Each s As String In PrinterSettings.InstalledPrinters
'Standarddrucker ?
If pd.PrinterSettings.PrinterName = s Then
MsgBox (s & " ist der Standardrucker.")
End If
Next s

Setzen des Standarddruckers:

mit der Windows API

Public Declare Function SetDefaultPrinter Lib "winspool.drv" Alias _
"SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean

Gruß
Jens