اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

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

المطلوب من الكود هو ان يقوم بتعديل هوامش 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
تم تعديل بواسطه 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

 

قام بنشر

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

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

قام بنشر

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

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

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

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

هذه مفهومة

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

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

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

 

قام بنشر

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

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

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

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

اختبار.xlsx

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information