以下是引用rjh4078在2017/11/2 20:46:00的发言：最后再请教一个问题 如何将图片大小自适应报表大小？
[此贴子已经被作者于2017/11/2 20:46:15编辑过]
Dim lj As String="d:\123.png"
Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 215 '纸张宽度为215毫米
doc.PageSetting.Height = 280 '纸张高度为280毫米
Dim rg1 As New prt.RenderGraphics()
Dim g= rg1.Graphics
rg1.x = 5
rg1.y = 15
Dim image = getimage(lj)
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.HighQuality
g.CompositingQuality = CompositingQuality.HighQuality
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half
Dim w As Integer = doc.PageSetting.Width.value / 25.4 * basemainform.CreateGraphics.DpiX
Dim h As Integer = doc.PageSetting.height.value / 25.4 * basemainform.CreateGraphics.DpiY
g.DrawImage(image,0,0, w, h) ''这个地方如何将图片与页面大小调成一致,我是手动写的
doc.Body.Children.Add(rg1) '将图片对象加入报表
Doc.Preview() '预览
加好友 
发短信
Post By：2017/11/2 20:32:00 [只看该作者]
此主题相关图片如下：1.png
