共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：专业报表中用什么语句能自由控制二个表格在报表中的位置
1楼
xxfoxtable 发表于：2024/11/8 8:54:00专业报表中用什么语句能自由控制二个表格在报表中显示的位置
[此贴子已经被作者于2024/11/8 8:54:03编辑过]
2楼
cd_tdh 发表于：2024/11/8 8:59:00举例说明一下怎么弄表格？
3楼
xxfoxtable 发表于：2024/11/8 9:03:00[此贴子已经被作者于2024/11/8 9:21:30编辑过]
4楼
有点蓝 发表于：2024/11/8 9:08:005楼
cd_tdh 发表于：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编辑过]
6楼
xxfoxtable 发表于：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) '将表格对象加入到报表中
我是这样写的，但不行
7楼
cd_tdh 发表于：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编辑过]
8楼
xxfoxtable 发表于：2024/11/8 9:21:00感谢
9楼
xxfoxtable 发表于：2024/11/8 13:10:00回复的太好！对我们基础不好的，有非常大的帮助
共9 条记录, 每页显示 10 条, 页签:
[1]