R9.2 Den aktuellen Drucker ermitteln

Aufgabe

Der Name des aktuellen Druckers soll ermittelt werden.

Lösung

Verwenden Sie das Application.Printer-Objekt, auf welches Sie in mehreren Varianten zugreifen können.

Beispiel

Anzeige des aktuellen Druckers im Direktfenster

Sub AktuellerDrucker()
  Debug.Print Application.Printer.DeviceName
End Sub

Oberfläche

Ein einfaches Formular mit zwei Befehlsschaltflächen und einem Textfeld.

Quelltext

Option Explicit

Private Sub OK_Click()
  Text0.Value = "Drucker: " & Application.Printer.DeviceName & vbCrLf
  Text0.Value = Text0.Value & "Drucker: " & Me.Printer.DeviceName & vbCrLf
End Sub

Test

Die Ausgaben der beiden Varianten sind identisch:

Abbildung 9.1 Laufzeitansicht

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial