اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

الاسم في B1

الرصيد في C1

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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 يحتوي على المجموع

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

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

تم تعديل بواسطه 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

بالتوفيق :fff:

MyPrint.rar

رابط هذا التعليق
شارك

السلام عليكم

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

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

Print.rar

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information