Gruppe
Druck
Bereich
Drucker
Thema
Aktiven Drucker in UserForm wechseln
Problem
Wie kann ich in einem UserForm-Dialog den aktiven Drucker wechseln?
Lösung
Nachfolgendes Makro in das Klassenmodul der UserForm einfügen, dem Code entsprechende Steuerelemente hinzufügen und starten.
ClassModule: Tabelle1
Private Sub cmdStart_Click()
frmPrinter.Show
End Sub
ClassModule: frmPrinter
Private Sub cmdChangePrinter_Click()
Me.Hide
Application.Dialogs(xlDialogPrinterSetup).Show
lblPrinter.Caption = Application.ActivePrinter
Me.Show
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
lblPrinter.Caption = Application.ActivePrinter
End Sub
StandardModule: basMain
Sub CallForm()
frmPrinter.Show
End Sub