Print footer directly after last row in page Problem

[matrex 300]

محتاج مساعدة في تصحيح الكود التالي ليعمل

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

Dim i As Integer, x As Double, lr As Integer
Dim a, y
With ActiveSheet.PageSetup
    x = .FooterMargin
    For i = 1 To .Pages.Count
        If i = .Pages.Count Then
            'Stop
            'How to set the margin so as to suit the last row of data
            lr = Cells(Rows.Count, 1).End(xlUp).Row
            ActiveSheet.PageSetup.PrintArea = Range("A1:H" & lr).Address
            a = Mid(Sheets("Sheet1").HPageBreaks(1).Location.Address(0, 0), 2, 99) - 1


            y = a - (lr - (a * (.Pages.Count - 1)))

            MsgBox y
            '.FooterMargin = Application.InchesToPoints(0.78740157480315)
        End If
        ActiveSheet.PrintOut from:=i, To:=i, Preview:=True
        'ActiveSheet.PrintPreview
    Next i
    .FooterMargin = x
End With
End Sub

تم تعديل نوفمبر 10, 2023 بواسطه matrex 300

[عبدللرحيم]

منقول

()Sub xlStdFooter

ActiveSheet.PageSetup.LeftFooter = _
        "File:   " & ActiveWorkbook.Name & vbLf & _
        "Tab:    " & ActiveSheet.Name

ActiveSheet.PageSetup.CenterFooter = _
        "Date Printed:   " & Format(Date, "dd-mmm-yyyy") & vbLf & _
        "Time Printed:   " & Format(Time, "hhmm") & " hrs"

ActiveSheet.PageSetup.RightFooter = _
        "Page #:      " & "&P" & vbLf & _
        "Total Pages: " + "&N"

End Sub

 

[matrex 300]

مش ده اللي مطلوب من الكود خالص

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

[حسونة حسين]

السلام عليكم وبها نبدا

ارفق ملف اخي ليتم فهم طلبك

2 ساعات مضت, matrex 300 said:

مطلوب من الكود هو ان يقوم بتعديل هوامش footer تلقائيا طبقا لعدد الصفح الموجود بالشيت عند الطباعة

هذه مفهومة

2 ساعات مضت, matrex 300 said:

ويكون بعد اخر سطر في الصفحة الاخيرة وفي نهاية الصفحة في باقي الصفحات

هذه ليست مفهومة

 

[matrex 300]

في الملف المرفق 

محتاج اخلي دائما الfooter يكون بعد اخر سطر فية بيانات ده في حالة ان تكون عدد الصفح المحتوية علي بيانات صفحة واحده فقط  ولو اكثر من صفحة واحد يكون في الصفحات في اخر الصفحة وحتي اخر صفحة سوف يكون بها بيانات لم تكم صفحة كاملة يكون الfooter بعد اخر سطر محتوي علي بيانات 

بمعني اخر يكون هوامش ال Footer متحركة مع كل صفحة بناء علي عدد الصفحات لو البيانات الموجودة في الملف امراد طباعتة تاخذ صفحة واحدة يكون الFooter بعد اخر سطر محتوي علي بيانات 

ولو عدد الصفحات يكون صفحتين مثلا في هذة الحالة ال footer في الصفحة الاولي في اسفل الصفحة تماما وفي الصفحة الثانية تكون البيانات لم تكمل الصفحة كاملة يكون الFooter بعد اخر سطر محتوي علي بيانات

اختبار.xlsx