用VBA在报表中设置页码的方法

cabin9999 · 发表于 2009-12-7 15:04:58

本帖最后由 cabin9999 于 2009-12-7 15:26 编辑

用VBA在报表中设置页码的方法
比如：当前多少页，一共多少页.

cabin9999 · 发表于 2009-12-7 15:20:55

My way:

str1 = "=" & Chr(34) & " Page " & Chr(34) & " " & Chr(38) & " Page " & Chr(38) & Chr(34) & " VON " & Chr(34) & Chr(38) & " Pages "
Set label_footer = CreateReportControl(Bericht.Name, acTextBox, acPageFooter, , "Seite")
label_footer.Properties("ControlSource") = str1

复制代码

帐号		自动登录	找回密码
密码			注册

[报表] 用VBA在报表中设置页码的方法

群介绍
主题无相 (随机显示版	同地区群块其他地区)