Office中国论坛/Access中国论坛

标题: 用VBA在报表中设置页码的方法 [打印本页]

作者: cabin9999 时间: 2009-12-7 15:04
标题: 用VBA在报表中设置页码的方法
本帖最后由 cabin9999 于 2009-12-7 15:26 编辑

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

作者: cabin9999 时间: 2009-12-7 15:20
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

复制代码

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)