Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktiven Drucker in UserForm wechseln

Gruppe

Drucker

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Drucker