VB分页保存Excel的源代码

我用VB给Excel输入了500行、200列的大文件，可以分页打印，但无页眉页脚等内容。
由于我需要每页四周都有不同的页眉页脚，我希望将内容分页保存后编写每页的页眉页脚。
不知VB分页保存Excel的源代码怎样写，望同行回复，谢谢！
是否有以下的语句：
        CommonDialog1.Action=2              '选择"另存为"对话框,输入文件名后保存
        xlsheet.range("A1:CB100").ShowSave       '第一页存前100行、80列区域
        CommonDialog1.Action=2
        xlsheet.range("CD1:FD100").ShowSave       ''第二页存前100行、90-160列区域
               .
               .
               .
               .
               . --------------------编程问答-------------------- 不同的页眉页脚
也是有规律的吧?
说说, 言无不尽嘛 --------------------编程问答-------------------- lz见过Excel能分页保存页眉页角吗

补充：VB ,  基础类