Option Compare Database
Option Explicit
Function SetStdPrinter(strPrinter As String)
Dim prtNew As Printer
On Error Resume Next
Set prtNew = Printers(strPrinter) ‚Gewünschten Drucker auslesen…
Set Application.Printer = prtNew ‚…und als Standard setzen
End Function
Function StandardDrucker() As String
StandardDrucker = Application.Printer.DeviceName
End Function
Sub Test1()
Dim intAnz As Integer, I As Integer
intAnz = Printers.Count – 1
For I = 0 To intAnz
Debug.Print Printers(I).DeviceName
Next I
End Sub