Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 80 '纸张宽度为80毫米
doc.PageSetting.Height = 80 '纸张高度为80毫米
Dim rm As New prt.RenderImage() '定义一个图片对象
rm.Image = GetImage("c:/ewm/"1.jpg") '请改为实际的图标名称和路径
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
doc.Body.Children.Add(rm) '将表格对象加入到报表中
Doc.Preview() '预览报表
请教一下，这段代码不能设置打印图片居中的吗？，打印纸张80*80
此主题相关图片如下：111.png
加好友 
发短信
Post By：2018/3/10 16:07:00 [显示全部帖子]
