共10 条记录, 每页显示 10 条, 页签: [1]

标题：请教报表打印换页问题

1楼

狐友发表于：2011/11/27 22:23:00

Dim doc As New Printdoc
Dim rx,rx1 As new prt.RenderText
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim prs As Integer = 9 '每页9行
Dim tb As Table = Tables("订单.订单明细")
Dim sum1 As Double = 0
Dim sum2 As Double = 0
Dim rs As Integer = Tables("订单.订单明细").Rows.Count

rx.text =" 订单编号: " & Tables("订单").Current("订单编号")
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx.Style.Font = New Font("宋体", 16, FontStyle.Bold)
doc.Body.Children.Add(rx)

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

    rt.Cols.Count = 4   '设置rt行列数
    rt.Rows.Count = 9
    rt.Height = 130

    For i As Integer = 0 To 13
    rt.Rows(i).Height = 10 '设置rt行高
    Next

   rt.Rows(0).Style.Borders.bottom = New prt.Linedef '设置rt行格式
   rt.Rows(1).Style.Borders.bottom = New prt.Linedef
   rt.Rows(2).Style.Borders.bottom = New prt.Linedef
   rt.Rows(3).Style.Borders.bottom = New prt.Linedef
   rt.Rows(4).Style.Borders.bottom = New prt.Linedef
   rt.Rows(5).Style.Borders.bottom = New prt.Linedef
   rt.Rows(6).Style.Borders.bottom = New prt.Linedef
   rt.Rows(7).Style.Borders.bottom = New prt.Linedef
   rt.Rows(8).Style.Borders.bottom = New prt.Linedef
   rt.Rows(9).Style.Borders.bottom = New prt.Linedef


   rt.Cells(0,0).Text = "产品" '设置rt表头
   rt.Cells(0,1).Text = "单价"
   rt.Cells(0,2).Text = "数量"
   rt.Cells(0,3).Text = "金额"
   rt.Cells(10,2).Text = " 数量: " & sum1
     For r As Integer = 0 To tb.Rows.Count - 1 '遍历关联表每一行
        rt.Cells(r+1,0).Text = tb.rows(r)("产品")
        rt.Cells(r+1,1).Text = tb.rows(r)("单价")
        rt.Cells(r+1,2).Text = tb.rows(r)("数量")
        rt.Cells(r+1,3).Text = tb.rows(r)("金额")

      Next
      sum1 = 0
      sum2 = 0

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

        sum1 =sum1 + tb.rows(r)("数量")

      Next

     If p < math.Ceiling(rs/ prs) - 1
        rt.BreakAfter = prt.BreakEnum.Page
     End If

    doc.Body.Children.Add(rt)
Next

   rx1.text =" 白色深红浅蓝浅黄   浅绿   浅红 "
   rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
   rx1.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   doc.Body.Children.Add(rx1)

doc.Preview

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2011-11-28 13:52:21编辑过]

2楼

狐狸爸爸 发表于：2011/11/28 8:27:00

看看这个帖子：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=14273&skin=0

3楼

狐友发表于：2011/11/28 12:59:00

还是没搞定，帮忙看下

4楼

yangming 发表于：2011/11/28 13:51:00

以下是引用狐友在2011-11-28 12:59:00的发言：

还是没搞定，帮忙看下

您想要什么效果?没明白意思

5楼

狐友发表于：2011/11/28 13:54:00

就是每页只能打印9行，大于9就换页，不够就补空行，每页有个小计，按那个列子改了下，还是没搞定

6楼

狐狸爸爸 发表于：2011/11/28 14:59:00

已经收藏，有空再做个例子。

7楼

狐友发表于：2011/11/28 15:47:00

老大，我这个报表有问题，出不来结果，小计也没出来，帮忙看看

此主题相关图片如下：28.jpg

8楼

狐狸爸爸 发表于：2011/11/28 16:20:00

For p As Integer = 0 To math.Ceiling(rs/prs) - 1
rt.Cols.Count = 4 '设置rt行列数
rt.Rows.Count = 9

改为：

For p As Integer = 0 To math.Ceiling(rs/prs) - 1
     rt = New prt.RenderTable()
     rt.Cols.Count = 4 '设置rt行列数
     rt.Rows.Count = 9

你看看帮助的示例，就是这样的：

http://www.foxtable.com/help/topics/2241.htm

9楼

yangming 发表于：2011/11/28 17:51:00

试试这个:

Dim doc As New Printdoc
Dim rx As new prt.RenderText
Dim prs As Integer = 9 '每页7行
Dim tb As Table = Tables("订单.订单明细")
Dim sum1 As Double = 0
Dim sum2 As Double = 0

Dim rs As Integer = Tables("订单.订单明细").Rows.Count

rx.text =" 订单编号: " & Tables("订单").Current("订单编号")
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx.Style.Font = New Font("宋体", 16, FontStyle.Bold)
rx.Style.Borders.Bottom = New prt.LineDef(1, Color.Green) '设置底边框
rx.Style.Padding.Bottom = 5'底端内容缩进0.5毫米

Doc.PageHeader = rx
For p As Integer = 0 To math.Ceiling(rs/prs) - 1

    Dim rt As New prt.RenderTable() '定义一个表格对象
    rt.Cols.Count = 4   '设置rt行列数
    rt.Rows.Count = 9
    rt.Height = 130
    For i As Integer = 0 To 13
        rt.Rows(i).Height = 10 '设置rt行高
    Next
    rt.Cells(0,0).Text = "产品" '设置rt表头
    rt.Cells(0,1).Text = "单价"
    rt.Cells(0,2).Text = "数量"
    rt.Cells(0,3).Text = "金额"
    For r As Integer = p * prs To math.min(rs- 1,( p + 1) * prs - 1)
        rt.Cells(r - p * prs + 1, 0).Text = tb.rows(r)("产品")
        rt.Cells(r - p * prs + 1, 1).Text = tb.rows(r)("单价")
        rt.Cells(r - p * prs + 1, 2).Text = tb.rows(r)("数量")
        rt.Cells(r - p * prs + 1, 3).Text = tb.rows(r)("金额")


    Next
    sum1 = 0

    For r1 As Integer = p * prs To math.min(rs - 1,( p + 1) * prs - 1)

        sum1 =sum1 + tb.rows(r1)("数量")

    Next

    If p < math.Ceiling(rs/ prs) - 1
        rt.BreakAfter = prt.BreakEnum.Page
    End If

    rt.Rows(0).Style.Borders.bottom = New prt.Linedef '设置rt行格式
    rt.Rows(1).Style.Borders.bottom = New prt.Linedef
    rt.Rows(2).Style.Borders.bottom = New prt.Linedef
    rt.Rows(3).Style.Borders.bottom = New prt.Linedef
    rt.Rows(4).Style.Borders.bottom = New prt.Linedef
    rt.Rows(5).Style.Borders.bottom = New prt.Linedef
    rt.Rows(6).Style.Borders.bottom = New prt.Linedef
    rt.Rows(7).Style.Borders.bottom = New prt.Linedef
    rt.Rows(8).Style.Borders.bottom = New prt.Linedef
    rt.Rows(9).Style.Borders.bottom = New prt.Linedef

    rt.Rows(prs+1)(2).text = " 数量: " & sum1
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center
    rt.Cells(prs+3,0).SpanCols = 4
    rt.Rows(prs+3)(0).text = " 白色深红浅蓝浅黄   浅绿   浅红 "
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt.Rows(prs+3)(0).Style.Font = New Font("宋体", 12, FontStyle.Bold)
    doc.Body.Children.Add(rt)

Next

doc.Preview

10楼

狐友发表于：2011/11/28 20:56:00

谢谢，继续学习

共10 条记录, 每页显示 10 条, 页签: [1]