Hallo,
ich möchte in Access per VBA drucken. Klappt natürlich mittels DoCMD.PrintOut usw. Nur: Wie kann ich einen Drucker auswählen? Hab da irgendwie nichts zu gefunden… :-/
Hendrik.
Versuchs mal hier mit:
Option Explicit
Private Sub Command1_Click()
Dim Prn As Printer
'Falls Combo1.Text = „“ wurde kein Drucker ausgewählt…
If Me.Combo1.Text = „“ Then
MsgBox „Sie haben keinen Drucker ausgewählt!“, _
vbInformation, „Error“
Else
'für jeden Drucker …
For Each Prn In Printers
'Falls der vorhandene Drucker mit dem in der Combobox
'augewählten übereinstimmt, wird dieser als „Printer“
'festgelegt (Set Printer = Prn ).
If Prn.DeviceName = Me.Combo1.Text Then
Set Printer = Prn
Exit For
End If
Next
'Drucken …
Printer.Print „Sie haben folgenden Drucker ausgewählt:“
Printer.Print Me.Combo1.Text
Printer.EndDoc
End If
End Sub
Private Sub Form_Load()
Dim X As Integer
Dim Y As Integer
Dim Printername As String
Y = -1
'Die Combobox mit vorhandenen Druckern füllen
For X = 0 To Printers.Count - 1
Printername = Printers(X).DeviceName
Me.Combo1.AddItem Printername
'Mit dem derzeit eingestellten vergleichen
If Printername = Printer.DeviceName Then Y = X
Next X
Combo1.ListIndex = Y
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]