以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  打印预览的页脚位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147648)

--  作者：deliangzhaoe --  发布时间：2020/3/21 7:07:00 --  打印预览的页脚位置 打印预览的页脚位置能不能在代码中调整，底部太宽了，让页码显示再往下点： \'页面设置 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编辑过]

--  作者：有点蓝 --  发布时间：2020/3/21 9:58:00 --   rt.Style.Padding.Bottom = -10 \'底端内容缩进10毫米，自己调整大小测试取合适的值