كيف تستبعد ورقة عمل محددة عند طباعة المصنف؟

إذا كان لديك مصنف يحتوي على أوراق عمل متعددة تحتاج إلى طباعتها ولكن مع استبعاد واحدة معينة ، فهل هناك أي طريقة سريعة وسهلة لنا لطباعة جميع الأوراق باستثناء واحدة في Excel؟

استبعاد ورقة عمل محددة عند طباعة المصنف برمز VBA

---

استبعاد ورقة عمل محددة عند طباعة المصنف برمز VBA

لطباعة المصنف بأكمله باستثناء ورقة عمل واحدة محددة ، يمكن أن تساعدك تعليمات VBA البرمجية التالية.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

كود فبا: استبعاد ورقة عمل محددة عند طباعة المصنف:

Private Sub Printexclude()
'Updateby Extendoffcie
    Dim ws As Worksheet
    Dim strShName As String
    On Error Resume Next
    strShName = Application.InputBox("Enter the sheet name you want to exclude:", _
    "Kutools For Excel", , , , , , 2)
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ((ws.Visible = xlSheetVisible) And _
         (ws.Name <> strShName)) Then ws.PrintOut
    Next ws
    Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بإدخال اسم الورقة الذي تريد استبعاده عند طباعة المصنف ، انظر لقطة الشاشة:

4. ثم اضغط OK زر ، وستتم طباعة أوراق العمل الأخرى مرة واحدة واستبعاد ورقة معينة حسب حاجتك.