- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表中用什么语句能自由控制二个表格在报表中的位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194086)
-- 发布时间：2024/11/8 8:54:00
-- 专业报表中用什么语句能自由控制二个表格在报表中的位置
专业报表中用什么语句能自由控制二个表格在报表中显示的位置
[此贴子已经被作者于2024/11/8 8:54:03编辑过]
-- 发布时间：2024/11/8 8:59:00
--
举例说明一下怎么弄表格？
-- 发布时间：2024/11/8 9:03:00
--
[此贴子已经被作者于2024/11/8 9:21:30编辑过]
-- 发布时间：2024/11/8 9:08:00
--
http://www.foxtable.com/webhelp/topics/1177.htm
-- 发布时间：2024/11/8 9:11:00
--
直接指定X、Y的坐标位置就行了。比如这样：
\'加入查询码
Dim rx As New prt.RenderText \'定义一个文本对象
rx.Style.Font = New Font("黑体", 18)
rx.Text = "内服" \'设置文本对象的内容
rx.X = 155
rx.Y = 40
rx.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rx) \'将文本对象加入到报表
[此贴子已经被作者于2024/11/8 9:14:41编辑过]
-- 发布时间：2024/11/8 9:17:00
--
此主题相关图片如下：标签1.png
Dim rt As New prt.RenderTable() \'定义一个表格对象
rt.Style.Font = New font("宋体", CStr(Tables("标签打印设置").Current("服务方法字体大小")))
rt.Cols.Count = 1\'报表_table1总列数
rt.Width = CStr(Tables("标签打印设置").Current("服务方法宽度"))
rt.X = 25
rt.y = 0
\'Dim a As Integer = CStr(Tables("标签打印设置").Current("服用方法上位置"))
\'rt.y = "Prev.top +a"
rt.Cells(0, 0).Text = "内服"
rt.CellStyle.Spacing.All = 1.2 \'单元格内容缩进1毫米
rt.Style.GridLines.All = New prt.Linedef \'报表_table1网格线
rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'内容垂直居中
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
\'rt.Y = CStr(Tables("标签打印设置").Current("离表格的距离"))
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
我是这样写的，但不行
-- 发布时间：2024/11/8 9:20:00
--
不要用表格，直接给文字加边框
参考代码：
Dim doc As New PrintDoc() \'定义一个报表
doc.PageSetting.Width = 50 \'纸张宽度为210毫米
doc.PageSetting.Height = 70 \'纸张高度为297毫米
Doc.PageSetting.LeftMargin = 2 \'设置左边距
Doc.PageSetting.RightMargin = 2 \'设置右边距
Doc.PageSetting.TopMargin = 2 \'设置上边距
Doc.PageSetting.BottomMargin = 2 \'设置下边距
\'加入标题
Dim rx As New prt.RenderText() \'定义一个文本对象
rx.text = "**单"
rx.Style.Font = New Font("方正小标宋简体", 14) \'设置文本对象的字体，语法：New Font(Name, Size, Style)
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列
rx.Style.Spacing.top = 3 \'和上面的对象距离0毫米
doc.Body.Children.Add(rx) \'将文本对象加入报表
\'加入服用方法
rx = New prt.RenderText() \'创建文本对象
rx.Style.Font = New font("宋体", 12)
rx.text = "内服"
rx.X = 35
rx.y = 4
rx.Width = 12 \'对象宽度为40毫米
rx.Height = 7 \'对象宽度为40毫米
rx.Style.Borders.All = New prt.Linedef(0.5, Color.Red) \'设置边框
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
doc.Body.Children.Add(rx) \'将对象加入到报表中
\'加入病人详情
Dim rt As New prt.RenderParagraph() \'定义一个段落对象
Dim f1 As New Font("宋体", 10, FontStyle.Bold) \'定义一个加粗的字体
Dim f2 As New Font("宋体", 10, FontStyle.Underline) \'定义一个加粗加下划线的字体
rt.Content.AddText("姓名：", f1)
rt.Content.AddText("张三" & Chr(13) & Chr(10) & "", f2)
rt.Content.AddText("性别：", f1)
rt.Content.AddText("男" & Chr(13) & Chr(10) & "", f2)
rt.Content.AddText("年龄：" , f1)
rt.Content.AddText("76", f2)
\'rt.Style.Spacing.top = 10 \'和上面的对象距离10毫米
rt.Style.LineSpacing = 150 \'设置1.5倍行距
doc.body.Children.add(rt)
doc.Preview() \'预览
[此贴子已经被作者于2024/11/8 10:56:41编辑过]
-- 发布时间：2024/11/8 9:21:00
--
感谢
-- 发布时间：2024/11/8 13:10:00
--
回复的太好！对我们基础不好的，有非常大的帮助