wie bekomme ich es hin, dass bei einer Textbox nur der Text gedruckt wird, nicht der Rahmen bzw. der Hintergrund?
Danke für eure Hilfe.
Gruß
Karsten
'Makros im Tabellenblatt-Modul des Blattes mit der Textbox
Sub TextBoxvordrucken()
With Me.TextBox1 'Den Namen der Textbox ggf. anpassen !!!
.BorderStyle = fmBorderStyleNone
.BackStyle = fmBackStyleTransparent
.SpecialEffect = fmSpecialEffectFlat
End With
End Sub
Sub TextBoxNachdrucken()
With Me.TextBox1 'Den Namen der Textbox ggf. anpassen !!!
.BorderStyle = fmBorderStyleSingle
.BackStyle = fmBackStyleOpaque
.SpecialEffect = fmSpecialEffectSunken
End With
End Sub
Private Sub CommandButton1_Click()
'Eigenschaften für Commandbutton(Active-X/STeuerelmente-Toolbox) wie folgt einstellen
'TakeFocusOnClick: False
'PrintObject: False
TextBoxvordrucken
Me.PrintOut preview:=True
TextBoxNachdrucken
End Sub