AW: Inhalt von TextBoxes ausdrucken?
23.09.2007 12:39:00
TextBoxes
Hi,
hast Du vielleicht ein Code-Beispiel dazu?
Für eine ListBox sieht das so aus. Aber meine Bemühungen, den Code für TextBoxes anzupassen sind leider kläglich gescheitert...
Hast Du dazu eine Idee?
Private Sub CommandButton3_Click()
Dim lngC As Long
Dim objSh As Worksheet
Set objSh = Sheets("Druck")
With ListBox1
If .ListCount > 0 Then
If .List(0, 0) "Kein Treffer!" Then
For lngC = 0 To .ListCount - 1
objSh.Cells(lngC + 2, 1) = .List(lngC, 0)
objSh.Cells(lngC + 2, 2) = .List(lngC, 1)
objSh.Cells(lngC + 2, 3) = .List(lngC, 2)
Next
Me.Hide
With objSh
.Visible = xlSheetVisible
'Druckvorschau
.PrintPreview
'oder gleich Ausdrucken
'.PrintOut
.Range("A2:C" & Rows.Count).ClearContents
.Visible = xlSheetHidden
End With
Me.Show
End If
End If
End With
Set objSh = Nothing
End Sub
Gruss, Ina