以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印设置，老话新提。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4250)
--  作者：lihe60
--  发布时间：2009/9/7 9:27:00
--  打印设置，老话新提。
只打印四行，不再继续换页打印而是在原页上打印，为什么？请检查一下代码哪里不对。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2009-9-7 9:37:50编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/9/7 9:48:00
--  
随便改的，自己调整：

Dim doc As New PrintDoc \'定义一个报表
Dim rt As prt.RenderTable
Dim rm As prt.RenderEmpty \'定一个空对象
For i As Integer = 0  To  Tables("表B").rows.Count -1 Step 4
    rt = New prt.RenderTable
    Dim rs As New prt.RenderText()
    rs.Text = "职工花名册" \'设置文本对象的内容
    rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) \'设置文本对象的字体
    rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中
    doc.Body.Children.Add(rs) \'将文本对象加入到表格中
   
    With Tables("表B")
        rt.rows(0).Style.Borders.Top = New prt.LineDef(0,Color.red)
        rt.rows(0).Style.Borders.Bottom = New prt.LineDef(0,Color.red)
       
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.Style.TextAlignVert = prt.AlignVertEnum.Center
        rt.Style.Borders.Bottom = New prt.LineDef(0,Color.red)
        rt.CellStyle.Spacing.All = 2
        rt.Cols.Count = 4
       
        rt.Cells(0,0).Text = "姓名"
        rt.Cells(0,1).Text = "年龄"
        rt.Cells(0,2).Text = "部门"
       
        \'定义列内容
        \'For r As integer = 0 To  .Rows.Count - 1 \'遍历关联表每一行
        For r As integer = i To  math.min(i + 3,.rows.count-1)
            rt.Cells(r,0).Text = .rows(r)("姓名")
            rt.Cells(r,1).Text = .rows(r)("年龄")
            rt.Cells(r,2).Text = .rows(r)("部门")
        Next
    End With
    doc.Body.Children.Add(rt)
next
Doc.Preview() \'预览报表
--  作者：lihe60
--  发布时间：2009/9/7 10:04:00
--  
谢谢，我拷过去再调整吧。