كود لتحديد عدد الصفوف بصفحة الطباعة

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

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

بمعني جعل عدد الصفوف 20 صف مثلا بالصفحة الواحدة  عند الطباعة 

وشكرا مقدما أحبابي في الله

تم تعديل مارس 19, 2018 بواسطه حماده سعد الله

[Ali Mohamed Ali]

ممكن تجرب هذا

 

طباعة.xlsm

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

الأستاذ المحترمali mohamed ali شكرا لسرعة ردك واهتمامك

ولكن ما أقصده عو أنني أريد طباعة صفحة شيت بها مثلا 100 صف و أريد أن يكون بكل صفحة طباعة 26 صف فقط دون زيادة أو نقصان فهل هذا ممكن عن طريق الكود

حتي لا أحتاج إلي ضبط كل صفحة مرارا وتكرارا وخاصة عند زيادة أو نقصان حجم الخط أو ارتفاع الصف

[shreif mohamed]

السلام عليكم 

Sub sh22mar2018()
Dim a, b, c, d  As Long
Dim e As Double
Dim i As Long
a = 16 ' عدد الصفوف المراد طباعتها في الصفحة الواحدة
b = 1 ' بداية من الصف رقم
c = 8 'عدد الاعمدة 
d = 100 ' اجمالي الصفوف في صفحة العمل
e = Application.WorksheetFunction.RoundUp(d / a, 0)
Range("A" & b, Range("A" & a)).Resize(, c).Select
For i = 1 To e
ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Selection.Offset(a).Select
Next
End Sub

 

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

3 ساعات مضت, shreif mohamed said:

السلام عليكم 

Sub sh22mar2018()
Dim a, b, c, d  As Long
Dim e As Double
Dim i As Long
a = 16 ' عدد الصفوف المراد طباعتها في الصفحة الواحدة
b = 1 ' بداية من الصف رقم
c = 8 'عدد الاعمدة 
d = 100 ' اجمالي الصفوف في صفحة العمل
e = Application.WorksheetFunction.RoundUp(d / a, 0)
Range("A" & b, Range("A" & a)).Resize(, c).Select
For i = 1 To e
ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Selection.Offset(a).Select
Next
End Sub

 

شكرا أستاذ شريف لاهتمامك وسأحاول تنفيذ الكود