Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]专业报表


  共有1847人关注过本帖树形打印复制链接

主题：[求助]专业报表
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/20 11:09:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
Dim t As Table = Tables("会议纪要")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim ra As New prt.RenderArea
    Dim rt As prt.RenderText
    ra.Style.Spacing.All = 1
    ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
   
    rt = New prt.RenderText
    rt.Text = "中共涟源市杨市镇中心卫生院支部委员会"
    rt.X = 2
    rt.Y = 2
    ra.Children.Add(rt) '添加到容器中
   
    rt = New prt.RenderText
    rt.Text = "与会党员:"
    rt.X = 2
    rt.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米
    ra.Children.Add(rt)
   
    rt = New prt.RenderText
    rt.Text = r("与会党员")
    rt.X = 30
    rt.Y = "Prev.Top" '垂直坐标和前一对象相同
    ra.Children.Add(rt)
   
    If r("列席人员") <> Nothing Then
        rt = New prt.RenderText
        rt.Text = "列席人员:"
        rt.X = 2
        rt.Y = "Prev.Bottom + 2"
        ra.Children.Add(rt)
       
        rt = New prt.RenderText
        rt.Text = r("列席人员")
        rt.X = 30
        rt.Y = "Prev.Top"
        ra.Children.Add(rt)
    End If
    ra.BreakBefore = prt.BreakEnum.Page
Next
Doc.Preview() '预览报表

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/20 22:54:00 [显示全部帖子]

1、

 

    
    rt = New prt.RenderText
    rt.Text = r("与会党员")
    rt.X = 20
    rt.Y = "Prev.Top" '垂直坐标和前一对象相同
    rt.width = "parent.width-20"
    ra.Children.Add(rt)
   

2、参考

 

http://www.foxtable.com/webhelp/scr/1179.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/21 14:30:00 [显示全部帖子]

你要先安装字体到系统，才能调用的。

 

https://jingyan.baidu.com/article/a501d80cd1a3f9ec630f5eb4.html

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/21 14:34:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/21 15:07:00 [显示全部帖子]

用这个对话框能否弹出和选择字体？

 

Dim fd As New Windows.Forms.FontDialog
If fd.ShowDialog = DialogResult.OK Then
    msgbox(fd.font.name)
End If

如果不能，试试 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77110&authorid=0&page=0&star=1

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询