共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：打印的标题问题
1楼
longyanlin 发表于：2024/3/7 16:22:00如下代码用来打印，第一页显示了标题，第二页开始就没有标题了，请问如何改代码：
此主题相关图片如下：标题.png
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 = ""
此主题相关图片如下：标题.png2楼
有点蓝 发表于：2024/3/7 16:37:00……
.OnlyPrintTitleOnFirstPage = False
End With
Tables("证书提醒").Print(True,False)
共2 条记录, 每页显示 10 条, 页签:
[1]