Standard-Drucker von Windows ändern

[Kommodore]

Hallo,

wie kann man den Standard-Drucker von Windows mit VBA aus Access heraus ändern?

Code [Auswählen] Erweitern

Private Sub Form_Load()
Dim X As Integer
Dim Y As Integer
Dim Printername As String

'Kmb_Druckerauswahl.RemoveItem

Y = -1
'Die Combobox mit vorhandenen Druckern füllen
For X = 0 To Printers.Count - 1
Printername = Printers(X).DeviceName
Me.Kmb_Druckerauswahl.AddItem Printername

'Mit dem derzeit eingestellten vergleichen
If Printername = Printer.DeviceName Then Y = X
Next X

'Kmb_Druckerauswahl.Listindex = 0



End Sub

Beim Laden eines Formulars werden alle Drucker in der Kombobox als Item hinzugefügt; nun
möchte ich nach Auswahl eines Druckers aus der Kombobox(Kmb_Druckerauswahl) auch auf diesem Drucker
drucken und dies funktioniert nicht.

Da entweder der Standard-Drucker sich vielleicht auch nicht ändern läßt? Veilleicht gibt es ja noch andere Lösungen für dieses
Problem?

Vielen Dank im Voraus.

[DF6GL]

Hallo,

http://www.donkarl.com/?FAQ5.1