إضافة كود

[Mahmoud Atef]

برجاء عمل زر ماكرو عند الضغط عليه يظهر معاينة قبل الطباعة
مع العلم أنه عند طباعة الجدول الموجود بالملف المرفق يتم إخفاء أو عم No Border للخلايا الفارغة فقط والإبقاء للخلايا التى يوجد بها ملفات

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

New.xlsx

[lionheart]

Sub Test()
    Dim c As Long, r As Long
    With ActiveSheet.UsedRange
        .Cells.EntireRow.Hidden = False
        .Cells.EntireColumn.Hidden = False
        For r = 1 To .Rows.Count
            If Application.CountA(.Rows(r)) = 0 Then .Rows(r).Hidden = True
        Next r
        For c = 1 To .Columns.Count
            If Application.CountA(.Columns(c)) = 0 Then .Columns(c).Hidden = True
        Next c
        .Parent.PrintPreview
        .Cells.EntireRow.Hidden = False
        .Cells.EntireColumn.Hidden = False
    End With
End Sub

 

[Mahmoud Atef]

شكرا لك أستاذى
ولكن لم يفى بالغرض

إذ أنه يعمل على الصف الأخير الذى يوجد به بيانات فقط ولم يكن المطلوب ألا وهو إزالة الـ border الموجودة بكل خلية فارغة لا يوجد بها بيانات عند الأخذ بأمر الطباعة

وشكرا لك مرة أخرى للمساهمة

[Mahmoud Atef]

أرجو الإفادة إذا كان يوجد هناك فعلا شئ مما أطلبه أو لا وشكرا

[lionheart]

I have no idea about the expected output. Attach an image of the expected output exactly

[Mahmoud Atef]

بمعنى الصورة الأولى (untitled1) يوجد على الخلايا border أى خطوط سواء على التى يوجد بها بيانات أو لا يوجد بها

أما الصورة الثانية (untitled2) لا يوجد borders فى الخلايا التى يوجد بها بيانات وهو المطلوب فى حالة الأخذ بأمر الطباعة

أى أن جدول العمل يبقى كما هو بالخطوط إلا فى حالة أمر الطباعة يتم حذف الخطوط من الخلايا التى لا يوجد بها بيانات.