Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Text aus UserForm-TextBox drucken

Gruppe

Bereich

Problem

Wie kann ich einen in einer UserForm-TextBox stehenden Text auf Schaltflächendruck auf den Drucker ausgeben?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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

    

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