Druckfunktion sperren, Seitenansicht aber zulassen
11.02.2014 15:14:33
Henner
ich habe leider noch keine Lösung für mein Problem gefunden und würde Euch hier gerne nochmals um Hilfe bitten. 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
PS: Ja, die Frage habe ich hier schonmal gestellt: https://www.herber.de/forum/archiv/1344to1348/t1344880.htm
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
Anzeige