- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表中 如何设定某个元素显示的位置相对固定 如何导入图片在指定的位置并浮于文字上方？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159701)
-- 发布时间：2021/1/5 14:34:00
-- 专业报表中 如何设定某个元素显示的位置相对固定 如何导入图片在指定的位置并浮于文字上方？
专业报表中 如何设定某个元素显示的位置相对固定 如何导入图片在指定的位置并浮于文字上方？
1、想实现加盖骑缝章这个位置的内容显示在整个页面的水平0.垂直200的位置上 不因通知内容多少而变动
2、想实现电子印章图片显示的时候浮于文字上方，且在指定的位置 如 水平300垂直400 大小高度100宽度100
此主题相关图片如下：2.png
此主题相关图片如下：2.png专业报表代码如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
当有多个prt.RenderText对象时，如下对应的代码如何精简呢？
Dim doc As New PrintDoc \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
Dim rt1 As prt.RenderText \'定义一个文本对象
Dim rt10 As prt.RenderText \'定义一个文本对象
Dim s As String \'定义字符变量
s = "我支部于某年某月收到某某同志的入党申请书."
s = s & "支部将于一个月内派人同入党申请人谈话,了解基本情况."
Dim s1 As String \'定义字符变量
s1 = "我支部于某年某月收到你的入党申请书."
s1 = s1 & "支部将于一个月内派人同入党申请人谈话,了解基本情况."
rt1 = New prt.RenderText
rt1.Text = "入党申请谈话通知书"
rt1.Style.TextColor = Color.Red \'字符颜色设为红色
rt1.Style.Font = New Font("宋体", 24, FontStyle.Bold) \'设置字体
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt1.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt1.Style.TextIndent = 9 \'首行缩进9毫米
rt1.Style.Spacing.Top = 5 \'每段间隔5毫米
rt1.Style.LineSpacing = 150 \'1.5倍行距
doc.Body.Children.Add(rt1) \'将文本对象加入到报表
rt10 = New prt.RenderText
rt10.Text = "中共某某县某某单位第二党支部第【】号"
rt10.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体
rt10.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt10.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt10.Style.TextIndent = 9 \'首行缩进9毫米
rt10.Style.Spacing.Top = 5 \'每段间隔5毫米
rt10.Style.LineSpacing= 150 \'1.5倍行距
doc.Body.Children.Add(rt10) \'将文本对象加入到报表
rt = New prt.RenderText
rt.Text = s \'设置文本对象的内容
rt.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体
rt.Style.TextIndent = 9 \'首行缩进9毫米
rt.Style.Spacing.Top = 5 \'每段间隔5毫米
rt.Style.LineSpacing = 150 \'1.5倍行距
doc.Body.Children.Add(rt) \'将文本对象加入到报表
……
Dim rt07 As prt.RenderText \'定义一个文本对象
rt07 = New prt.RenderText
rt07.Text = ".....................................(加盖骑缝章).................................."
rt07.Style.Font = New Font("宋体", 10, FontStyle.Bold) \'设置字体
rt07.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt07.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt07.Style.TextIndent = 9 \'首行缩进9毫米
rt07.Style.Spacing.Top = 5 \'每段间隔5毫米
rt07.Style.LineSpacing= 150 \'1.5倍行距
doc.Body.Children.Add(rt07) \'将文本对象加入到报表
Dim rt06 As prt.RenderText \'定义一个文本对象
rt06 = New prt.RenderText
rt06.Text = "入党申请谈话通知书"
rt06.Style.TextColor = Color.Red \'字符颜色设为红色
rt06.Style.Font = New Font("宋体", 24, FontStyle.Bold) \'设置字体
rt06.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt06.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt06.Style.TextIndent = 9 \'首行缩进9毫米
rt06.Style.Spacing.Top = 5 \'每段间隔5毫米
rt06.Style.LineSpacing = 150 \'1.5倍行距
doc.Body.Children.Add(rt06) \'将文本对象加入到报表
Dim rt05 As prt.RenderText \'定义一个文本对象
rt05 = New prt.RenderText
rt05.Text = "中共某某县某某单位第二党支部第【】号"
rt05.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体
rt05.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt05.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt05.Style.TextIndent = 9 \'首行缩进9毫米
rt05.Style.Spacing.Top = 5 \'每段间隔5毫米
rt05.Style.LineSpacing= 150 \'1.5倍行距
doc.Body.Children.Add(rt05) \'将文本对象加入到报表
……
Dim rt03 As prt.RenderText \'定义一个文本对象
rt03 = New prt.RenderText
rt03.Text = " 年 月 日"
rt03.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体
rt03.Style.TextAlignHorz = prt.AlignHorzEnum.right \'水平居中
rt03.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt03.Style.TextIndent = 9 \'首行缩进9毫米
rt03.Style.Spacing.Top = 5 \'每段间隔5毫米
rt03.Style.LineSpacing= 150 \'1.5倍行距
doc.Body.Children.Add(rt03) \'将文本对象加入到报表
\'……
doc.Preview() \'预览
[此贴子已经被作者于2021/1/5 14:36:07编辑过]
-- 发布时间：2021/1/5 15:10:00
--
http://www.foxtable.com/webhelp/topics/1177.htm
-- 发布时间：2021/1/5 19:43:00
--
单独做一个签名文本，再做一个图片放到签名文本里。再把签名文本放进doc里
-- 发布时间：2021/1/6 9:10:00
--
Dim doc As New PrintDoc \'报表对象
doc.PageSetting.PaperKind = 9 \'A4纸
Dim tb As new prt.RenderTable \'定义一个Table,便于布局,你可以把它分的更细
tb.Rows.Count = 3 \'三行1列
tb.Cols.Count = 1
tb.Rows(0).Height = "50%Parent.Height - 5"
tb.Rows(1).Height = 10
tb.Rows(2).Height = "50%Parent.Height - 5"
Dim zhubiaoti As New prt.RenderText \'主标题
With zhubiaoti
.Text = "入党申请谈话通知书"
.Style.TextColor = Color.Red \'字符颜色设为红色
.Style.Font = New Font("宋体", 24, FontStyle.Bold) \'设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
.Style.TextIndent = 9 \'首行缩进9毫米
.Style.Spacing.Top = 5 \'每段间隔5毫米
.Style.LineSpacing = 150 \'1.5倍行距
End With
Dim fubiaoti As New prt.RenderText \'副标题
With fubiaoti
.Text = "中共某某县某某单位第二党支部第【】号"
.Style.Font = New Font("宋体", 12) \'设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
.Style.TextIndent = 9 \'首行缩进9毫米
.Style.Spacing.Top = 5 \'每段间隔5毫米
.Style.LineSpacing= 150 \'1.5倍行距
End With
Dim neirong As New prt.RenderText \'内容
With neirong
Dim s As String \'定义字符变量
s = "我支部于某年某月收到某某同志的入党申请书."
s = s & "支部将于一个月内派人同入党申请人谈话,了解基本情况."
.Text = s
.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.Left \'水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
.Style.TextIndent = 12 \'首行缩进9毫米
.Style.Spacing.Top = 5 \'每段间隔5毫米
.Style.LineSpacing= 150 \'1.5倍行距
End With
Dim qifeng As New prt.RenderText \'骑缝
With qifeng
.Text = ".....................................(加盖骑缝章).................................."
.Style.Font = New Font("宋体", 10, FontStyle.Bold) \'设置字体
End With
Dim jiewei As New prt.RenderText \'结尾
With jiewei
.Text = " 某某党支部" & chr(13) & Date.Today.Tostring(" yyyy年MM月dd")
.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
.Style.Padding.Left = 10
.X = 100
.Height = 60
End With
Dim yinzhang As New prt.RenderImage \'印章
With yinzhang
.Image = GetImage("FoxTable (2).png") \'自己换印章图像
.Height = 45
End With
tb.Cells(0,0).Area.Children.Add(zhubiaoti)
tb.Cells(0,0).Area.Children.Add(fubiaoti)
tb.Cells(0,0).Area.Children.Add(neirong)
tb.Cells(0,0).Area.Children.Add(jiewei)
tb.Cells(1,0).Area.Children.Add(qifeng)
tb.Cells(2,0).Area.Children.Add(zhubiaoti.Clone) \'复制一个相同对象
tb.Cells(2,0).Area.Children.Add(fubiaoti.Clone)
tb.Cells(2,0).Area.Children.Add(neirong.Clone)
Dim a As prt.RenderText = jiewei.Clone()
a.Children.Add(yinzhang) \'将印章加入到签名
tb.Cells(2,0).Area.Children.Add(a)
doc.Body.Children.Add(tb) \'将文本对象加入到报表
doc.Preview() \'预览
-- 发布时间：2021/1/6 9:56:00
--
是这个意思？
此主题相关图片如下：1609898170(1).png