如何实现带字贴格式（如米字格）的生字套打 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

谢谢

模板发上来测试一下

谢谢老师指点

下载信息 [文件大小：下载次数： ]
点击浏览该文件:米字格.xls

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)

Doc.Preview() '预览报表

谢谢指点。

不懂代码哦。

老师您这个示例，都是显示的固定文本。这个我大致能看得懂。

但如何变成数据表（生字表）中的生字呢？

是把这个狐字部分换成我的数据表中的相应字段吗？

[此贴子已经被作者于2020/12/28 17:21:27编辑过]

肯定可以的，专业报表的帮助都全部过一遍先

[此贴子已经被作者于2020/12/28 19:45:48编辑过]

主题：如何实现带字贴格式（如米字格）的生字套打