matrex 300 قام بنشر نوفمبر 10, 2023 مشاركة قام بنشر نوفمبر 10, 2023 (معدل) محتاج مساعدة في تصحيح الكود التالي ليعمل المطلوب من الكود هو ان يقوم بتعديل هوامش 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 رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر نوفمبر 12, 2023 مشاركة قام بنشر نوفمبر 12, 2023 منقول ()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 رابط هذا التعليق شارك More sharing options...
matrex 300 قام بنشر نوفمبر 13, 2023 الكاتب مشاركة قام بنشر نوفمبر 13, 2023 مش ده اللي مطلوب من الكود خالص مطلوب من الكود هو ان يقوم بتعديل هوامش footer تلقائيا طبقا لعدد الصفح الموجود بالشيت عند الطباعة ويكون بعد اخر سطر في الصفحة الاخيرة وفي نهاية الصفحة في باقي الصفحات رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر نوفمبر 13, 2023 مشاركة قام بنشر نوفمبر 13, 2023 السلام عليكم وبها نبدا ارفق ملف اخي ليتم فهم طلبك 2 ساعات مضت, matrex 300 said: مطلوب من الكود هو ان يقوم بتعديل هوامش footer تلقائيا طبقا لعدد الصفح الموجود بالشيت عند الطباعة هذه مفهومة 2 ساعات مضت, matrex 300 said: ويكون بعد اخر سطر في الصفحة الاخيرة وفي نهاية الصفحة في باقي الصفحات هذه ليست مفهومة رابط هذا التعليق شارك More sharing options...
matrex 300 قام بنشر نوفمبر 13, 2023 الكاتب مشاركة قام بنشر نوفمبر 13, 2023 في الملف المرفق محتاج اخلي دائما الfooter يكون بعد اخر سطر فية بيانات ده في حالة ان تكون عدد الصفح المحتوية علي بيانات صفحة واحده فقط ولو اكثر من صفحة واحد يكون في الصفحات في اخر الصفحة وحتي اخر صفحة سوف يكون بها بيانات لم تكم صفحة كاملة يكون الfooter بعد اخر سطر محتوي علي بيانات بمعني اخر يكون هوامش ال Footer متحركة مع كل صفحة بناء علي عدد الصفحات لو البيانات الموجودة في الملف امراد طباعتة تاخذ صفحة واحدة يكون الFooter بعد اخر سطر محتوي علي بيانات ولو عدد الصفحات يكون صفحتين مثلا في هذة الحالة ال footer في الصفحة الاولي في اسفل الصفحة تماما وفي الصفحة الثانية تكون البيانات لم تكمل الصفحة كاملة يكون الFooter بعد اخر سطر محتوي علي بيانات اختبار.xlsx رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.