| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]怎么让二维码下面打出对应二维码的文字？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178244) |
| -- 作者：zto001 -- 发布时间：2022/6/25 9:20:00 -- [求助]怎么让二维码下面打出对应二维码的文字？ Dim doc As New PrintDoc \'创建一个报表 doc.PageSetting.Width =210 \'纸张宽度 doc.PageSetting.Height =297 \'纸张高度 doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式 Dim rt As New prt.RenderTable() \'定义一个表格对象 Doc.PageSetting.LeftMargin = 1 \'设置左边距 Doc.PageSetting.RightMargin = 1 \'设置右边距 Doc.PageSetting.TopMargin = 1 \'设置上边距 Doc.PageSetting.BottomMargin = 1 \'设置下边距 rt.Width = "Parent.Width" \'对象宽度等于页面宽度 rt.Height = "Parent.Height" \'对象高度等于页面高度 rt.Rows.Count = 7 \'设置行数 rt.Cols.Count = 5 \'设置列数 rt.Style.GridLines.All = New prt.LineDef \'设置网格线类型 rt.CellStyle.Spacing.All = 0.5 \'内容距离网格线0.5毫米 \'下面的代码向表格中填入值 Dim 值 As String="省,湖南省|省,湖北省|省,江西省|省,广东省|省,河南省|省,贵州省|省,广西壮族自治区|省,浙江省|省,安徽省|省,陕西省|省,重庆|省,上海|省,河北省|省,海南省|省,山西省|省,山东省|省,云南省|省,天津|省,四川省|省,江苏省|省,福建省|省,北京|省,辽宁省|省,黑龙江省|省,吉林省|省,内蒙古自治区|省,宁夏回族自治区|省,甘肃省|省,青海省|省,新疆维吾尔自治区|省,西藏自治区" Dim Values() As String Dim shu As Integer Values = 值 .split("|") For Index As Integer = 0 To Values.Length - 1 shu=shu+1 Dim rg As prt.RenderGraphics Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode bar.Code = Values(Index) rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rg.Style.Spacing.All = 3 rt.Cells(shu \\ 5 ,shu Mod 5).RenderObject = rg \'将单元格内容设置为图片对象rm Next doc.Body.Children.Add(rt) \'将表格对象加入到报表中 doc.Preview () \'预览报表 [求助]怎么让二维码下面打出对应二维码的文字？
|
| -- 作者：有点蓝 -- 发布时间：2022/6/25 9:41:00 -- 把图片和文字放到一个RenderArea 里 Dim ra As New prt.RenderArea ra.Children.Add(rg) Dim rt As prt.RenderText rt.Text = "xxxxx文字 " ra.Children.Add(rt) rt.Cells(shu \\ 5 ,shu Mod 5).RenderObject =ra
|
| -- 作者：zto001 -- 发布时间：2022/6/25 11:17:00 -- Dim doc As New PrintDoc \'创建一个报表 doc.PageSetting.Width =210 \'纸张宽度 doc.PageSetting.Height =297 \'纸张高度 doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式 Dim rt As New prt.RenderTable() \'定义一个表格对象 Doc.PageSetting.LeftMargin = 1 \'设置左边距 Doc.PageSetting.RightMargin = 1 \'设置右边距 Doc.PageSetting.TopMargin = 1 \'设置上边距 Doc.PageSetting.BottomMargin = 1 \'设置下边距 rt.Width = "Parent.Width" \'对象宽度等于页面宽度 rt.Height = "Parent.Height" \'对象高度等于页面高度 rt.Rows.Count = 7 \'设置行数 rt.Cols.Count = 5 \'设置列数 rt.Style.GridLines.All = New prt.LineDef \'设置网格线类型 rt.CellStyle.Spacing.All = 0.5 \'内容距离网格线0.5毫米 \'下面的代码向表格中填入值 Dim 值 As String="省,湖南省|省,湖北省|省,江西省|省,广东省|省,河南省|省,贵州省|省,广西壮族自治区|省,浙江省|省,安徽省|省,陕西省|省,重庆|省,上海|省,河北省|省,海南省|省,山西省|省,山东省|省,云南省|省,天津|省,四川省|省,江苏省|省,福建省|省,北京|省,辽宁省|省,黑龙江省|省,吉林省|省,内蒙古自治区|省,宁夏回族自治区|省,甘肃省|省,青海省|省,新疆维吾尔自治区|省,西藏自治区" Dim Values() As String Dim shu As Integer Values = 值 .split("|") For Index As Integer = 0 To Values.Length - 1 shu=shu+1 Dim rg As prt.RenderGraphics Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode bar.Code = Values(Index) rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rg.Style.Spacing.All = 3 Dim ra As New prt.RenderArea ra.Children.Add(rg) Dim rt0 As prt.RenderText rt0.Text = Values(Index) ra.Children.Add(rt0) rt.Cells(shu \\ 5 ,shu Mod 5).RenderObject =ra \'将单元格内容设置为图片对象rm Next doc.Body.Children.Add(rt) \'将表格对象加入到报表中 doc.Preview () \'预览报表 提示未将对象引用设置到对象实例 是哪里错了？
|
| -- 作者：有点蓝 -- 发布时间：2022/6/25 11:27:00 -- Dim rt0 As new prt.RenderText |