页脚：Ole_object.ActiveSheet.PageSetup.CenterFooter = '第 &P 页，共 &N 页 '
进行页面设置：
a.页眉：
Ole_object.ActiveSheet.PageSetup.CenterHeader := '报表演示 ';
b.页脚：
Ole_object.ActiveSheet.PageSetup.CenterFooter := '第&P页 ';
c.页眉到顶端边距2cm：
Ole_object.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
Ole_object.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
Ole_object.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
Ole_object.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
Ole_object.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
Ole_object.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
Ole_object.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
Ole_object.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
Ole_object.ActiveSheet.PageSetup.PrintGridLines := True;
这是对以前发过的PB对EXCEL的操作的补充！
------解决方案--------------------
顶起来.
------解决方案--------------------
这么好的文章，怎么没人来顶！这可比那些xsl.pbl好多了，复杂一点的数据窗口根本就导不出拉一，谢谢 了，这可是原代码
------解决方案--------------------
呵呵，你可以找excel vba相关的资料，
------解决方案--------------------