vba Print chỉ được phép thông qua macro

Chào,

Đây là mã của tôi tại mô-đun:

Sub PrintForm ()
Application.PrintCommunication = Sai
Với ActiveSheet.PageSetup
.PrintArea = "$ A $ 1: $ I $ 40"
.PrintTitleRows = "$ 1: $ 3"
.Thu phóng = 75
Kết thúc với
ActiveWindow.SelectedSheets.PrintOut Copies: = 1, Collate: = True, _
Bỏ quaPrintAreas: = Sai
Ứng dụng.PrintTruyền thông = True
End Sub

Đây là mã của tôi tại đối tượng Workbook:
Private Sub Workbook_BeforePrint (Cancel As Boolean)
Hủy bỏ = Đúng
End Sub

Tôi có thể biết cách tôi có thể tắt lệnh Print nhưng cho phép in qua macro, tức là tôi muốn thêm điều khiển Macro PrintForm chỉ được phép in qua macro. Đánh giá cao ai đó có thể giúp đỡ, cảm ơn.