[求助][求助]打印格式设置求帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][求助]打印格式设置求帮助

共有2180人关注过本帖树形打印复制链接主题：[求助][求助]打印格式设置求帮助

xuxd76

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

加好友

发短信

等级：幼狐帖子：84 积分：679 威望：0 精华：0 注册：2020/12/25 0:49:00

[求助][求助]打印格式设置求帮助 发帖心情

Post By：2021/3/2 13:22:00 [只看该作者]

此主题相关图片如下：打印格式1.png

上面的窗口中的样式

下面是我希望打印出来的格式

此主题相关图片如下：目标打印格式1.png

日期控制名是:客户开始时间\客户结束时间

下面是代码: 有大神能帮我修改一下吗?

Dim doc As New PrintDoc

Dim tb As Table = Tables("业务管理_客户明细表")

Dim prs As Integer = 20 '每页20行

For p As Integer = 0 To math.Ceiling(tb.Rows.Count / prs) - 1

Dim rt As New prt.RenderTable

rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)

rt.CellStyle.Spacing.All = 0.5

tb.CreateReportHeader(rt,False) '生成多层表头

For c As Integer = 0 To tb.Cols.Count - 1

For r As Integer = p * prs To math.min(tb.Rows.Count - 1,( p + 1) * prs - 1)

rt.Cells(r - p * prs + tb.HeaderRows, c).Text = tb.rows(r)(c)

If p < math.Ceiling(tb.Rows.Count / prs) - 1

rt.BreakAfter = prt.BreakEnum.Page

End If

doc.Body.Children.Add(rt)

doc.Preview()

[此贴子已经被作者于2021/3/2 13:22:34编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：106063 积分：539408 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/2 13:51:00 [只看该作者]

Dim doc As New PrintDoc
Dim tb As Table = Tables("业务管理_客户明细表")
Dim prs As Integer = 20 '每页20行
For p As Integer = 0 To math.Ceiling(tb.Rows.Count / prs) - 1
    Dim rt As New prt.RenderTable
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
    rt.CellStyle.Spacing.All = 0.5

tb.CreateReportHeader(rt,False) '生成多层表头
    For c As Integer = 0 To tb.Cols.Count - 1
        rt.Cells(0,c).Text = tb.Cols(c).Name
        For r As Integer = p * prs To math.min(tb.Rows.Count - 1,( p + 1) * prs - 1)
            rt.Cells(r - p * prs + 1, c).Text = tb.rows(r)(c)
        Next
    Next
    If p < math.Ceiling(tb.Rows.Count / prs) - 1
        rt.BreakAfter = prt.BreakEnum.Page
    End If
    doc.Body.Children.Add(rt)
Next
doc.Preview()