Access-o-Mania

Access-Forum (Deutsch/German) => Access-Hilfe => Thema gestartet von: Kommodore am März 05, 2012, 15:44:20

Titel: Standard-Drucker von Windows ändern
Beitrag von: Kommodore am März 05, 2012, 15:44:20
Hallo,

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

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.
Titel: Re: Standard-Drucker von Windows ändern
Beitrag von: DF6GL am März 05, 2012, 16:04:19
Hallo,

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