- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用这个代码打印时，二维码特别小，是什么原因？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132573)
-- 发布时间：2019/3/25 11:53:00
-- 用这个代码打印时，二维码特别小，是什么原因？
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = GetImage("e.ProjectPath & data\\二维码.png") \'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rm) \'将图片对象加入报表
用这个代码打印时，二维码特别小，是什么原因？
-- 发布时间：2019/3/25 14:42:00
--
1、代码
rm.Image = GetImage(ProjectPath & "data\\二维码.png") \'设置图片
2、如果代码还有问题，那就是你二维码本身就小
http://www.foxtable.com/webhelp/scr/1182.htm
-- 发布时间：2019/3/25 19:41:00
--
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = GetImage(ProjectPath &"data\\二维码.png") \'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
rm.Style.ImageAlign.StretchHorz = False \'禁止拉伸
rm.Style.ImageAlign.StretchVert = False
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
doc.Body.Children.Add(rm) \'将图片对象加入报表
此主题相关图片如下：1.png
我加了居中的代码，打印预览不在页面的中间，有点靠左
[此贴子已经被作者于2019/3/25 19:41:36编辑过]
-- 发布时间：2019/3/25 20:25:00
--
rm.Width = "Parent.Width" \'宽度等于页面宽度
-- 发布时间：2019/3/25 21:01:00
--
明白了，感谢老师！
[此贴子已经被作者于2019/3/25 21:09:40编辑过]
-- 发布时间：2019/3/25 21:09:00
--
等于页面宽度才能居中呀。不然就只能指定具体的位置了啊
rm.x = 20