طباعه غير كاملة

[waledms]

المرفق عند عمل معاينه للصف 2/3 لا يظهر آخر صفين فى الورقة ولا تظهر عند الطباعه

‏‏‏رصد الإتقان.rar

[سليم حاصبيا]

هذا الكود

Sub Print_Salim()
Dim range_to_Print As Range
Dim k%
Set range_to_Print = Range("A6").Resize(Range("V1") - 5, 11)
    
Application.ScreenUpdating = False

X = Application.CountA(Range("m1:m7"))
For I = 1 To X
k = 2
range_to_Print.EntireRow.Hidden = False
  Cells(1, 6) = Application.Index(Range("m1:m6"), I)
    Do Until range_to_Print.Cells(k, 1) = ""
     If range_to_Print.Cells(k, 11) <> Cells(1, 6) Then _
      range_to_Print.Cells(k, 1).EntireRow.Hidden = True
     k = k + 1
    Loop
  ActiveSheet.PageSetup.PrintArea = _
  range_to_Print.SpecialCells(12).Address
  '===================   يمكنك اختيار احد هذين الامرين  أو كلاهما ==============
        'ActiveWindow.SelectedSheets.PrintPreview
        'ActiveWindow.SelectedSheets.PrintOut Copies:=1
   '===========================================================

Next
Application.ScreenUpdating = True
End Sub

الملف مرفق

 

‏‏‏رصد الإتقان salim.rar

[waledms]

السلام عليكم ورحمة الله وبركاته ....... شكراً للإهتمام  

كل ما أريده هو ظهور آخر صفين للصف 2/3 عند الطباعه..... كل الفصول تظهر الأسماء كامله إلا فصل 2/3 لا يظهر آخر صفين وهما ( مستوى المهارة للفصل و جملة التلاميذ )  

جزاكم الله خيرا 

‏‏‏رصد الإتقان.rar

[بن علية حاجي]

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

أبدل القيمة 333 في الخلية V1 بقيمة أكبر مثلا 350 (لتبديل نطاق "ناحية الطباعة")...

بن علية حاجي

[waledms]

مازال الوضع كما هو بعد تبديل 333 بـ 350

[بن علية حاجي]

السلام عليكم

إليك الملف المرفق وبه التعديل الذي اقترحته وهو يعمل بالشكل الذي تريد...

بن علية حاجي

رصد الإتقان.rar

[waledms]

جزاك الله خيراً .... لو أمكن شرح مبسط للكود لكى أستفيد به فى أعمال أخرى..... جزاك الله خيراً