محتاج كود طباعه مع تحديد صفحة في كل صفحة 50 سطر

[محمد عبدالسلام]

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه     

محتاج كود طباعه مع تحديد صفحة في كل صفحة 50 سطر و يبدأ تحديد صفحة الثانية لما يتم امتلأ  الأولى وهكذا في 3 

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

مختار حسين محمود.zip

[محمد عبدالسلام]

هل من حل في تحديد صفحة طباعة

تم تعديل سبتمبر 29, 2016 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

هل من طريقة وجزاكم الله خيرا

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

جرب هذا الماكرو

Sub InsertPageBreaks()

Dim Lastrow As Long
Dim Ws As Worksheet
Dim xRow As Integer
 xRow = 50
Set Ws = ActiveSheet

Ws.ResetAllPageBreaks
Lastrow = Ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To Lastrow Step xRow
    Ws.HPageBreaks.Add Before:=Ws.Cells(i, 1)
Next
End Sub

 

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته اخي سليم حاصبيا جزاك الله خيرا 

 رغم ضغط زر تشغل الكود لايعمل

شاهد هذا الفيديو

https://youtu.be/ZBMoE0Be1iI?t=29

فيديو

تم تعديل سبتمبر 30, 2016 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

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