طباعة مع تخطى الحقول او السجلات الفارغة

[ahmedamer2005]

[برجاء المساعدة في طباعة مع تخطى السجلات الفارغة

حيث يوجد لدى شيت يوجد به البيانات الخاصة ببعض المقترضين

رقم الحساب في A1

الاسم في B1

الرصيد في C1

والمجموع يوجد في A500

وبالتالى توجد سجلات فارغة فى الوسط

اريد طباعة البيانات الموجودة فقط وتخطى السجلات الفارغة

عن طريق زر ماكرو

برجاء افادتنى وشكرا

[m.hindawi]

بسم الله الرحمن الرحيم

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

ولكن يمكن عمل ذلك عن طريق اخفاء الصفوف الفارغة

ثم الطباعة وبعد ذلك اعادة اظهار الصفوف الفارغة عن طريق الكود التالي

For A = 1 To 500
TEST = Sheets("1").Cells(A, 1)
If (TEST) = "" Then
Rows(A).Hidden = True
End If
Next
Sheets("1").PrintOut
Sheets("1").Cells.Select
Selection.EntireRow.Hidden = False
Sheets("1").Cells(1, 1).Select

مع ملاحظة التالي

اسم الورقة المراد طباعتهاهو 1 غيره ليتناسب مع الاسم في ملفك

الصف رقم 500 يحتوي على المجموع

الخلايا الفارغة لا تحتوي على صيغ اذا كانت الخلايا الفارغة تحتوي على صيغ يجب تعديل الكود بما يتناسب مع ذلك

جرب الكود وابلغني بالنتيجة

تم تعديل مايو 4, 2005 بواسطه m.hindawi

[محمد حجازي]

السلام عليكم ...

من الممكن الاعتماد على الأسلوب UsedRange من أجل الحصول على مجال البيانات المليئة في الورقة (يختلف عن الأسلوب CurrentRegion في أنه لا يتأثر بالثغرات الفارغة الموجودة بين البيانات ، هذا فضلاً عن تأثره بتنسيقات الخلايا) .

الكود التالي يقوم بإخفاء الصفوف اعتماداً على العامود الأول من نطاق البيانات الموجود (ليس بالضرورة أن يكون العامود A) و ذلك تمهيداً لطباعتها ، ومن ثم يقوم بإظهار الصفوف المخفاة مجدداً :

Sub MyPrint()
  Application.ScreenUpdating = False
  With Sheets("Sheet1")
    With .UsedRange
      For i = 1 To .Rows.Count
        If .Cells(i, 1).Value = "" Then
          .Cells(i, 1).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub

بالتوفيق

MyPrint.rar

[علي السحيب]

السلام عليكم

ويمكن كذلك طباعة السجلات غير الفارغة فقط عن طريق فرز البيانات فرزاً تلقائيا وذلك بإختيار غير فارغة.

كما في المثال التالي

Print.rar

[ahmedamer2005]

انا متشكر اوى على المجهود ده

جعلكم الله زخرنا لنا