Hallo Michael,
hilft dir das weiter:
Sub tt()
With ActiveDocument
.TextBox1.BorderStyle = fmBorderStyleNone
.TextBox1.BackColor = &HFFFFFF
.PrintOut
.TextBox1.BorderStyle = fmBorderStyleSingle
.TextBox1.BackColor = &H636363
End With
End Sub
Gruß
Reinhard
Als ich über „App_DocumentBeforePrint“ gestoßen bin, ist mir diese Idee auch gekommen. Gefällt mir aber nicht so sehr. Trotzdem Danke für den Tipp. Mit fehlen sowieso noch ein paar Details (was ich da mache ist nicht für mich) und verwende erst mal die normalen Textfelder. Diese können mit einer Feldschattierung angezeigt werden, dass beim drucken nicht berücksichtigt wird. Die anderen wären mir zwar lieber aber es reicht auch erst mal so.
Aber Danke, dass du dir darüber Gedanken gemacht hast.
Michael