专业报表联打无法按选中打印如何处理？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表联打无法按选中打印如何处理？

共有1619人关注过本帖树形打印复制链接主题：专业报表联打无法按选中打印如何处理？

lin98

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

加好友

发短信

等级：五尾狐帖子：1145 积分：7566 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/11/2 11:38:00 [只看该作者]

rx.BreakAfter = prt.BreakEnum.Page '否则换页

Dim cnt = rt.Rows.Count

doc.Body.Children.Add(rt)

rx = New prt.RenderText

rx.Style.FontBold = True

rx.Style.Spacing.Top = 3

rx.Text = "销售明细数目: " & Rows.Count

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right

' rx.BreakAfter = prt.BreakEnum.Page '否则换页

doc.Body.Children.Add(rx)

End If

End With

doc.Preview

空前页，放在哪里合适？谢谢

有点蓝

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

加好友

发短信

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

Post By：2023/11/2 11:44:00 [只看该作者]

完整代码发上来

lin98

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

加好友

发短信

等级：五尾狐帖子：1145 积分：7566 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/11/2 13:26:00 [只看该作者]

Dim doc As New Printdoc

Dim rx As prt.RenderText

Dim rt As prt.RenderTable

Dim Rows As List(Of DataRow)

Dim tbl As Table = Tables("销售主表")

Dim tb As Table = Tables("销售明细")

rx.BreakAfter = prt.BreakEnum.Page '否则换页

Dim cnt = rt.Rows.Count

doc.Body.Children.Add(rt)

rx = New prt.RenderText

rx.Style.FontBold = True

rx.Style.Spacing.Top = 3

rx.Text = "销售明细数目: " & Rows.Count

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right

doc.Body.Children.Add(rx)

End If

End With

[此贴子已经被作者于2023/11/2 14:15:39编辑过]

有点蓝

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

加好友

发短信

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

Post By：2023/11/2 13:56:00 [只看该作者]

……

Dim cnt = rt.Rows.Count

doc.Body.Children.Add(rt)

rx = New prt.RenderText

rx.Style.FontBold = True

rx.Style.Spacing.Top = 3

rx.Text = "销售明细数目: " & Rows.Count

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right

If i < .BottomPosition OrElse (i = .BottomPosition AndAlso p < math.Ceiling(Rows.Count / prs) - 1) Then

rx.BreakAfter = prt.BreakEnum.Page '否则换页

End If

doc.Body.Children.Add(rx)

lin98

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

加好友

发短信

等级：五尾狐帖子：1145 积分：7566 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/11/2 15:22:00 [只看该作者]

品名列的内容，靠左，如何实现？

有点蓝

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

加好友

发短信

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

Post By：2023/11/2 15:28:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1170.htm

http://www.foxtable.com/webhelp/topics/1206.htm

lin98

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

加好友

发短信

等级：五尾狐帖子：1145 积分：7566 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/11/2 16:15:00 [只看该作者]

'设置一副标题

rz.Cells(1, 0).Text = "供方: " & pr("供方")

rz.Cells(1, 0).SpanCols = 3 '合并第一行全部单元格,用于显示主标题

rz.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left '公司名称列，在第2行左边

rz.Cols(1, 0).Style.Borders.Bottom = New prt.Linedef '设置底边框-黑色，报错提示参数太多

rz.Cols(0).Style.Borders.Bottom = New prt.Linedef '设置底边框-黑色，供方列的内容文字底部没显示画线，

如何实现供方列的内容文字底部显示画线？

可以单独设置某一个方向的边框，例如：

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 25 '宽度为25毫米
rt.Style.Borders.Bottom = New prt.Linedef '设置底边框
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

执行结果：

图片点击可在新窗口打开查看

[此贴子已经被作者于2023/11/2 16:16:51编辑过]

有点蓝

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

加好友

发短信

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

Post By：2023/11/2 17:09:00 [只看该作者]

有空不如先看看帮助，专业报表都有哪些功能呗：http://www.foxtable.com/webhelp/topics/1200.htm

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

总数 18 上一页 1 2

主题：专业报表联打无法按选中打印如何处理？