打印预览的页脚位置能不能在代码中调整，底部太宽了，让页码显示再往下点：'页面设置
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 20
Doc.PageSetting.BottomMargin = 15
Doc.PageSetting.TopMargin = 20
Doc.PageSetting.LeftMargin = 20
Dim rm As prt.RenderEmpty '定一个空对象
doc.Pagesetting.LandScape = True
'设置页脚
Dim yj As New prt.RenderText '定义一个文本对象
yj = New prt.RenderText '设置文本对象的内容
yj.Text = "第[PageNo]页 共[PageCount]页" '设置文本内容
yj.Style.TextAlignHorz = prt.AlignHorzEnum.center '页脚中间对齐
yj.Style.FontSize = 10 '字体大小为10磅
Doc.PageFooter = yj '作为页脚使用
此主题相关图片如下：捕获.jpg
[此贴子已经被作者于2020/3/21 7:07:56编辑过]
加好友 
发短信
Post By：2020/3/21 7:07:00 [显示全部帖子]
