ausgeblendete Blätter drucken
23.08.2005 08:48:52
Christian
ich habe mal wieder ein kleines Problem. Mit dem Drucken über Schaltflächen (wenn ein bestimmter Wert in Zelle A100 steht) klappt es jetzt schon super. Jetzt wäre es aber noch schön, wenn ich diese Blätter ausblenden könnte, aber beim betätigen dieser Schaltfläche diese Seiten trotzdem gedruckt werden. Geht das?
Hier der Code der hinter der Schaltfläche steht:
Sub Schaltfläche10_BeiKlick()
For Each TBlatt In ActiveWorkbook.Sheets
If TBlatt.[A100].Value = 1 Then
TBlatt.PrintOut copies:=1
End If
Next
End Sub
Danke schonmal im voraus.
Gruß Christian
Anzeige