الغاء الطباعة من داخل اكسل زالطباعة فقط بزر الطباعة VBA

[ابوحمزه المصرى]

السلام عليكم ورحمة الله وبركاته 

اريد الغاء الطباعة من داخل اكسل والطباعة فقط بزر  VBA المحدد للطباعة 

[خالد الشاعر]

استاذ ابو حمزة

ده امر الغاء الطباعة بالكيبورد

Private Sub Workbook_Open()
Application.OnKey "^p", ""
End Sub
 

 

[عبدالله المجرب]

السلام عليكم 

 

ضع هذا السطر في موديول جديد

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

 

 

 

[ابوحمزه المصرى]

مشكور اخى الغالى خالذ الشاعر

مشكور اخى الغالى عبدالله مجرب على هذا الحل المبدع 

بارك الله فيكما وفى القائمين على هذا المنتدى الكريم