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

[ahmed draz]

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

السادة الاخوة والخبراء واجهتني مشكلة اثنا الطباعة وهي طباعة الصفحات الفارغة

فهل من الممكن طباعة الصفحات التي تحتوي على بيانات فقط ؟

مع توضيح الكود حتى اتعلم.

ومرفق ملف المطلوب طباعة شيت (مينى). 

مع العلم انه يوجد مشاركة تناولت هذا الموضوع لم أفهم منها شياءً. 

 

ولكم جزيل الشكر

مينى.xlsx

[Saleh Ahmed Rabie]

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

**إليك كيفية طباعة الصفحات التي تحتوي على بيانات فقط في Excel:**

**الخطوات:**

1. **حدد نطاق البيانات:** حدد جميع الخلايا التي تحتوي على البيانات التي تريد طباعتها.
2. **انتقل إلى "ملف":** انقر فوق علامة التبويب "ملف" في الزاوية العلوية اليسرى.
3. **اختر "طباعة":** انقر فوق خيار "طباعة" في القائمة الموجودة على الجانب الأيسر.
4. **حدد "إعدادات":** انقر فوق الزر "إعدادات" الموجود في الجزء العلوي الأيمن من نافذة الطباعة.
5. **تبويب "الصفحة":** انقر فوق علامة التبويب "الصفحة" في نافذة "إعدادات الطباعة".
6. **إلغاء تحديد "طباعة الصفحات الفارغة":** قم بإلغاء تحديد مربع الاختيار "طباعة الصفحات الفارغة".
7. **انقر فوق "موافق":** انقر فوق الزر "موافق" لحفظ الإعدادات.
8. **طباعة:** انقر فوق الزر "طباعة" لطباعة النطاق المحدد من البيانات فقط.

**الكود:**

يمكنك أيضًا استخدام الكود التالي لطباعة الصفحات التي تحتوي على بيانات فقط:

 

Sub PrintDataOnly()
    'حدد نطاق البيانات
    Range("A1:D10").Select
    'إعدادات الطباعة
    With ActiveSheet.PageSetup
        .PrintArea = Range("A1:D10").Address
        .PrintComments = False
        .PrintEmptyRows = False
        .PrintEmptyColumns = False
    End With
    'طباعة النطاق المحدد
    ActiveSheet.PrintOut
End Sub

 

**ملاحظة:**

* سيؤدي هذا الكود إلى طباعة نطاق البيانات المحدد "A1:D10" فقط.
* يمكنك تعديل نطاق البيانات في الكود وفقًا لاحتياجاتك.