以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]设置二维码打印图像尺寸  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78933)
--  作者：oubenming
--  发布时间：2015/12/21 9:32:00
--  [求助]设置二维码打印图像尺寸
在窗口里按钮代码里能增加打印二维码打印图像尺寸吗、

Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
Dim ewm As WinForm.BarCode = e.Form.Controls("二维码")
rm.Image = ewm.GetImage
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview() \'预览
\'doc.Print()

8公分*8公分

谢谢老师帮助！！！
[此贴子已经被作者于2015/12/21 9:32:56编辑过]
--  作者：大红袍
--  发布时间：2015/12/21 10:05:00
--  

Dim doc As New PrintDoc \'定义一个报表对象

Dim rm As New prt.RenderImage \'定义一个图片对象

Dim ewm As WinForm.BarCode = e.Form.Controls("二维码")

Dim bmp As new bitmap(ewm.GetImage, 100, 100)
rm.Image = bmp

doc.Body.Children.Add(rm) \'将图片对象加入报表

Doc.Preview() \'预览
--  作者：oubenming
--  发布时间：2015/12/22 13:58:00
--  
谢谢大红袍老师