اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

تم تعديل بواسطه حماده سعد الله
رابط هذا التعليق
شارك

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

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

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

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

السلام عليكم 

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

 

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

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

 

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information