جکی پرسید آیا راهی برای گنجاندن صفرهای ابتدایی در اعداد صفحه قرار داده شده در پاورقی وجود دارد؟ او نیاز دارد که شماره صفحه‌اش همیشه پنج کاراکتر باشد و در صورت لزوم، صفرهای ابتدایی برای پر کردن طول آن باشد. بنابراین، شماره صفحات 00001، 00002 و غیره خواهد بود.
اکسل قالب بندی خیلی خوبی برای شماره صفحات خود ارائه نمی دهد. یک راه حل (شاید عملی ترین) این است که هر صفحه را در کاربرگ خود چاپ کنید، هر بار شماره صفحه را تغییر دهید. این ماکرو از این رویکرد استفاده می کند:
Sub FormattedPageNums()
Dim iPages As Integer
Dim J As Integer
Dim sFormat As String
sFormat = "00000"
Get count of pages in active sheet
iPages = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For J = 1 To iPages
.PageSetup.CenterFooter = Format(J, sFormat)
.PrintOut From:=J, To:=J
Next J
End With
End Sub
ماکرو تعداد صفحات را در کل چاپ پیدا می کند و سپس هر صفحه از آن چاپ را طی می کند. قبل از چاپ هر صفحه، به صورت جداگانه، ویژگی .CenterFooter برابر با یک رشته قالب بندی شده تنظیم می شود که شماره صفحه را با صفرهای ابتدایی نشان می دهد.
می‌توانید ماکرو را به دلخواه تغییر دهید تا اطلاعات مختلف را در فوتر قرار دهید. همچنین می توانید با استفاده از .LeftFooter یا .RightFooter به جای .CenterFooter ناحیه پاورقی را که تغییر می کند تغییر دهید.
