以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教报表打印换页问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14654)

--  作者:狐友
--  发布时间: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编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/11/28 8:27:00
--  

看看这个帖子:

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

 


--  作者:狐友
--  发布时间:2011/11/28 12:59:00
--  

还是没搞定,帮忙看下


--  作者:yangming
--  发布时间:2011/11/28 13:51:00
--  
以下是引用狐友在2011-11-28 12:59:00的发言:

还是没搞定,帮忙看下

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


--  作者:狐友
--  发布时间:2011/11/28 13:54:00
--  
就是每页只能打印9行,大于9就换页,不够就补空行,每页有个小计,按那个列子改了下,还是没搞定
--  作者:狐狸爸爸
--  发布时间:2011/11/28 14:59:00
--  
已经收藏,有空再做个例子。
--  作者:狐友
--  发布时间:2011/11/28 15:47:00
--  

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

 


图片点击可在新窗口打开查看此主题相关图片如下:28.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间: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


 


--  作者: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


--  作者:狐友
--  发布时间:2011/11/28 20:56:00
--  
谢谢,继续学习