Thema: Aktiven Drucker in UserForm wechseln

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