VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktiven Drucker in UserForm wechseln

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

    


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