- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现带字贴格式（如米字格）的生字套打 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159488)
-- 发布时间：2020/12/28 10:43:00
-- 如何实现带字贴格式（如米字格）的生字套打
在套用EXCel报表时，要实现米字格书写汉字的字帖模式。我在设置了细节区那一行的米字格后，发现只有设置的几行有米字格，后面套入的生字都没有米字格。意味着我如果要打印一百个生字，需要设置100行格式。请问下，有没有什么办法能更方便设置汉字字帖格式套打？如，拼音，只需要设置一行拼音格式；田字格，只需要设置一行田字格，后面的生字会自动套用这个格式去填充。
谢谢
-- 发布时间：2020/12/28 10:53:00
--
模板发上来测试一下
-- 发布时间：2020/12/28 15:24:00
--
谢谢老师指点
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:米字格.xls |
-- 发布时间：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() \'预览报表
-- 发布时间：2020/12/28 17:00:00
--
谢谢指点。
不懂代码哦。
老师您这个示例，都是显示的固定文本。这个我大致能看得懂。
但如何变成数据表（生字表）中的生字呢？
是把这个狐字部分换成我的数据表中的相应字段吗？
[此贴子已经被作者于2020/12/28 17:21:27编辑过]
-- 发布时间：2020/12/28 19:46:00
--
肯定可以的，专业报表的帮助都全部过一遍先
[此贴子已经被作者于2020/12/28 19:45:48编辑过]