drucken nicht ermöglichen
23.06.2005 11:33:47
eva
Seit Tagen versuche ich eine Möglichkeit zu finden um unter einen einzigen Voraussetzung das Drucken von einer Tabelle zu unterdrücken, aber... es gelingt mir nicht...
Es mußte (meiner Meinung nach) ähnlich wie folgendes Code sein, aber bezogen nicht auf die ganze Arbeitsmappe sonst nur auf eine einzige Tabelle:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Strukturen").Range("d24").Value = 1 Then
MsgBox ("Es wird nicht gedruckt! Die Werte sind unleserlich.")
Cancel = True
End If
End Sub
Vielen Dank für Eure Hilfe und liebe Grüße
eva
(PS - Level "VBA gut" ist fraglich - es sollte bei mir "zwischen nein und gut" heißen:-))
Anzeige