打印窗口表多页下，如何重复标题和副标题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印窗口表多页下，如何重复标题和副标题？

共有2022人关注过本帖树形打印复制链接主题：打印窗口表多页下，如何重复标题和副标题？

hjcslr

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00

打印窗口表多页下，如何重复标题和副标题？ 发帖心情

Post By：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)

在第二页时出现红色部分，就是第二页显示标题

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/7 14:51:00 [只看该作者]

不建议你用 PrintInfo 设置，用代码设置，现在已经无效了，不能直接用。

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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)

下一主题 >> << 上一主题

主题：打印窗口表多页下，如何重复标题和副标题？