Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:打印设置,老话新提。

1楼
lihe60 发表于:2009/9/7 9:27:00
只打印四行,不再继续换页打印而是在原页上打印,为什么?请检查一下代码哪里不对。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2009-9-7 9:37:50编辑过]
2楼
狐狸爸爸 发表于: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() '预览报表
3楼
lihe60 发表于:2009/9/7 10:04:00
谢谢,我拷过去再调整吧。
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.