Foxtable(狐表)用户栏目专家坐堂 → 如何实现带字贴格式(如米字格)的生字套打


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

主题:如何实现带字贴格式(如米字格)的生字套打

帅哥哟,离线,有人找我吗?
FbI3317881641
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:117 威望:0 精华:0 注册:2020/10/24 18:14:00
如何实现带字贴格式(如米字格)的生字套打  发帖心情 Post By:2020/12/28 10:43:00 [只看该作者]

在套用EXCel报表时,要实现米字格书写汉字的字帖模式。我在设置了细节区那一行的米字格后,发现只有设置的几行有米字格,后面套入的生字都没有米字格。意味着我如果要打印一百个生字,需要设置100行格式。请问下,有没有什么办法能更方便设置汉字字帖格式套打?如,拼音,只需要设置一行拼音格式;田字格,只需要设置一行田字格,后面的生字会自动套用这个格式去填充。
谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 10:53:00 [只看该作者]

模板发上来测试一下

 回到顶部
帅哥哟,离线,有人找我吗?
FbI3317881641
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:117 威望:0 精华:0 注册:2020/10/24 18:14:00
  发帖心情 Post By:2020/12/28 15:24:00 [只看该作者]

谢谢老师指点
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:米字格.xls


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 16:08:00 [只看该作者]

execl模板不支持特殊的对象格式,建议使用专业报表,比如:

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中

rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt.Width = 180 '表宽为90毫米
rt.Height = 180 '表高为90毫米
rt.Rows.Count = 10 '设置行数
rt.Cols.Count = 10 '设置列数

Dim Line As New prt.LineDef(0.1, Color.Blue, DashStyle.Dash)
Dim ra As prt.RenderArea
Dim rx As prt.RenderText

For i As Integer = 0 To 9
    For j As Integer = 0 To 9
        ra = rt.Cells(i,j).Area
       Dim ln As New prt.RenderLine(0,0,1,1,Line)
        ln.Width = "Parent.Width"
        ln.Height = "Parent.Width"
        ra.Children.Add(ln)
        
       ln = New prt.RenderLine(1,0,0,1,Line)
        ln.Width = "Parent.Width"
        ln.Height = "Parent.Width"
        ra.Children.Add(ln)
        
       ln = New prt.RenderLine(1,0,1,1,Line)
        ln.Width = "Parent.Width"
        ln.Height = "Parent.Width"
        ra.Children.Add(ln)
        
       ln = New prt.RenderLine(0,1,1,1,Line)
        ln.Width = "Parent.Width"
        ln.Height = "Parent.Width"
        ra.Children.Add(ln)

        rx = New prt.RenderText
        rx.Text = "狐"
        rx.Style.FontSize = 45
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        rx.Style.TextAlignVert = prt.AlignVertEnum.Center  '垂直居中
        ra.Children.Add(rx)
    Next
Next
Doc.Preview() '预览报表

 回到顶部
帅哥哟,离线,有人找我吗?
FbI3317881641
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:117 威望:0 精华:0 注册:2020/10/24 18:14:00
  发帖心情 Post By:2020/12/28 17:00:00 [只看该作者]

谢谢指点。
不懂代码哦。
老师您这个示例,都是显示的固定文本。这个我大致能看得懂。
但如何变成数据表(生字表)中的生字呢?
是把这个狐字部分换成我的数据表中的相应字段吗?
[此贴子已经被作者于2020/12/28 17:21:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 19:46:00 [只看该作者]

肯定可以的,专业报表的帮助都全部过一遍先
[此贴子已经被作者于2020/12/28 19:45:48编辑过]

 回到顶部