如下代码用来打印,第一页显示了标题,第二页开始就没有标题了,请问如何改代码: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