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
Im Modul
Option Explicit
Public Druck As Boolean
Druckbefehl
Sub PrintBOM()
Druck = True
ActiveWindow.SelectedSheets.Printout Copies:=1, Collate:=True
End Sub