Druckfunktion sperren, Seitenansicht aber zulassen
11.01.2014 18:22:15
Henner
mit folgendem Code verhindere ich das Drucken über die Symbolleiste. Leider verhindert diese Methode nicht nur wie gewünscht das Drucken über die Symbolleiste, sondern sperrt auch den Button "Seitenansicht". Dieser soll jedoch funktionieren, aus der Seitenansicht heraus muss das Drucken nicht gesperrt sein.
Was muss ich ändern? Danke & Gruss, Henner
In "DieseArbeitsmappe"
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Druck = False Then
Cancel = True
Else
Druck = False
End If
End Sub
Option Explicit
Public Druck As Boolean
Sub PrintBOM()
Druck = True
ActiveWindow.SelectedSheets.Printout Copies:=1, Collate:=True
End Sub