引用此篇
http://blog.xuite.net/crdotlin/excel/12236090-%E5%9C%A8%E6%A8%99%E9%A1%8C%E5%88%97%E4%B9%8B%E5%84%B2%E5%AD%98%E6%A0%BC%E5%8D%B0%E5%87%BA%E9%A0%81%E7%A2%BC
使用列印標題方式設定第一列為列印標題列印在A1修改2個地方
Set PNum = .Range("A1")
PNum = "第 " & "2017" & Format(i, "0000") & " 頁"
如果要印在頁尾就得判斷哪一列是分頁線所在插入一列並寫入PNum
或是在程序內加入設定頁尾加入該參數(沒試過次次改變設定頁尾值請自行測試)