LQ730L的针式打印机 图片默认DPI110 我把DPI改成320和180分别测试了下 单独打印图片非常清楚用下面的代码打印也非常清楚
Dim lj As String=ProjectPath & "bin\TempFiles\工单.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
g.DrawImage(image,0,0,800,1000) ‘’这个地方如何将图片与页面大小调成一致，我是手动写的
'g.DrawImage(image,0,0)
doc.Body.Children.Add(rg1) '将图片对象加入报表
Doc.Preview() '预览
另外一个问题就是那个代码在我的电脑上生成的图片为什么总是有3/4空白 甜老师用的是什么版本的office？我试着直接手工新建填了一个excel文件转成图片也是这样 说明模板没有问题
离成功就差一点了！！
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage(lj) '设置图片
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Parent.height" '高度由页面高度决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
'居中显示
doc.Body.Children.Add(rm)
这段代码生成的专业报表打印出来跟之前一样非常模糊 无论怎么调dpi也不行
加好友 
发短信
Post By：2017/11/2 15:49:00 [只看该作者]
