以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印窗口表多页下，如何重复标题和副标题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71209)
--  作者：hjcslr
--  发布时间：2015/7/7 12:45:00
--  打印窗口表多页下，如何重复标题和副标题？
打印窗口表多页下，如何重复标题和副标题？
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)

在第二页时出现红色部分，就是第二页显示标题
--  作者：大红袍
--  发布时间：2015/7/7 14:51:00
--  

不建议你用 PrintInfo 设置，用代码设置，现在已经无效了，不能直接用。
--  作者：大红袍
--  发布时间：2015/7/7 14:59:00
--  
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
    .OnlyPrintTitleOnFirstPage = False
End With
T.Print(True,False)