打印窗口表多页下,如何重复标题和副标题?
Dim t As Table = e.Form.Controls("Table6").Table
Dim txt1 As String = e.Form.Controls("TextBox1").text
Dim txt2 As String = e.Form.Controls("textbox2").text
Dim txt3 As String = e.Form.Controls("textbox3").text
With T.PrintInfo
.Title = "内一科血糖监测表"
.SubTitle = " 科别: 内一科 " & "床 位: " & txt3 & "床 " & "住院号: " & txt1 & " 姓名: " & txt2
.PageHeaderLine = True
.PageFooterLine = True
End With
T.Print(True,False)
在第二页时出现红色部分,就是第二页显示标题