以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用这个代码打印时,二维码特别小,是什么原因?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132573)

--  作者:xxfoxtable
--  发布时间: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

 


--  作者:xxfoxtable
--  发布时间: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" \'宽度等于页面宽度
--  作者:xxfoxtable
--  发布时间:2019/3/25 21:01:00
--  

明白了,感谢老师!

[此贴子已经被作者于2019/3/25 21:09:40编辑过]

--  作者:有点蓝
--  发布时间:2019/3/25 21:09:00
--  
等于页面宽度才能居中呀。不然就只能指定具体的位置了啊

rm.x = 20