- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打印的标题问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190848)
-- 发布时间：2024/3/7 16:22:00
-- 打印的标题问题
如下代码用来打印，第一页显示了标题，第二页开始就没有标题了，请问如何改代码：
Tables("证书提醒").HideUnSelectedRows()
\'打印代码
With Tables("证书提醒").PrintInfo
.Title = "证书到期提醒"
.LandScape = True
.LeftMargin = 10
.RightMargin =10
.TopMargin =10
.BottomMargin = 10
.PageFooter = "第[PageNo]页,共[PageCount]页"
.PageFooterLine = True
.PaperKind = 9
.FitIntoPage = True
End With
Tables("证书提醒").Print(True,False)
Tables("证书提醒").Filter = ""
此主题相关图片如下：标题.png
-- 发布时间：2024/3/7 16:37:00
--
……
.OnlyPrintTitleOnFirstPage = False
End With
Tables("证书提醒").Print(True,False)