نانسی می داند که چگونه یک کاربرگ را به گونه ای قالب بندی کند که ردیف ها در بالای هر صفحه چاپی تکرار شوند. با این حال، کاری که او می خواهد انجام دهد، تکرار ردیف ها در بالای هر صفحه چاپ شده به جز آخرین صفحه است.
هیچ راه مستقیمی برای انجام این کار وجود ندارد، اما می توانید چنین چاپی را با استفاده از یک ماکرو برای انجام کار شبیه سازی کنید. تنها کاری که باید انجام دهید این است که چاپ ماکرو همه به جز آخرین صفحه خود را داشته باشید، سپس تنظیمات صفحه را تغییر دهید تا ردیف ها تکرار نشوند و در نهایت صفحه نهایی پرینت را چاپ کنید. ماکرو زیر نمونه ای از این رویکرد را ارائه می دهد.
Sub PrintWorksheet()
Dim lPages As Long
Dim sTemp As String
lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
ActiveSheet.PrintOut From:=1, To:=lPages - 1
sTemp = .PrintTitleRows
.PrintTitleRows = ""
ActiveSheet.PrintOut From:=lPages, To:=lPages
.PrintTitleRows = sTemp
End With
End Sub
