السلام عليكم
ضع هذا السطر في موديول جديد
Public Abu_AhmedPrnt As Boolean
ثم في حدث ThisWorkbook ضع هذا الاسطر
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Abu_AhmedPrnt Then Exit Sub
MsgBox "لا يمكنك الطباعة بهذه الطريقة - أضغط زر الطباعة للطباعة"
Cancel = True
End Sub
في زر الأمر الخاص بالطباعة ضع هذا السطور
Abu_AhmedPrnt = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Abu_AhmedPrnt = False