Dobrý den,
Toto je můj kód v modulu:
Sub PrintForm()
Application.PrintCommunication = False
S ActiveSheet.PageSetup
.PrintArea = "$A$1:$I$40"
.PrintTitleRows = "$1:$3"
.Zvětšení = 75
Konec s
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=Nepravda
Application.PrintCommunication = True
End Sub
Toto je můj kód v objektu Workbook:
Private Sub Workbook_BeforePrint (Zrušit jako booleovský)
Zrušit = Pravda
End Sub
Mohu vědět, jak mohu zakázat příkaz Tisk, ale povolit tisk přes makro, tj. chtěl bych přidat kontrolu, že Macro PrintForm smí tisknout pouze přes makro. Oceňuji, že někdo může pomoci, děkuji.
Toto je můj kód v modulu:
Sub PrintForm()
Application.PrintCommunication = False
S ActiveSheet.PageSetup
.PrintArea = "$A$1:$I$40"
.PrintTitleRows = "$1:$3"
.Zvětšení = 75
Konec s
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=Nepravda
Application.PrintCommunication = True
End Sub
Toto je můj kód v objektu Workbook:
Private Sub Workbook_BeforePrint (Zrušit jako booleovský)
Zrušit = Pravda
End Sub
Mohu vědět, jak mohu zakázat příkaz Tisk, ale povolit tisk přes makro, tj. chtěl bych přidat kontrolu, že Macro PrintForm smí tisknout pouze přes makro. Oceňuji, že někdo může pomoci, děkuji.