Gruppe
Druck
Problem
Wie kann ich einen in einer UserForm-TextBox stehenden Text auf Schaltflächendruck auf den Drucker ausgeben?
ClassModule: frmDrucken
Private Sub cmdDrucken_Click()
Unload Me
Application.ScreenUpdating = False
Workbooks.Add 1
Range("A1").Value = txtEingabe.Text
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
StandardModule: basMain
Sub CallForm()
frmDrucken.Show
End Sub