主题：[求助]EXCEL报表能否生成图片后再打印？

为了避免用户修改生成好的Excel报表，能否将报表保存为图片文件，然后再显示在窗口中，再打印。

excel保存为图片文件，参考

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.copy
ClipBoard.GetImage.save("d:\abc.jpg")
app.quit

打印，看这个帖子 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108860&authorid=0&page=0&star=1

 

你也可以直接打印，用vba http://www.foxtable.com/webhelp/scr/2121.htm

 

老师你好，你给的例子我还消化不了，能否在实例的窗口一中帮我设置好 员工资料卡 直接打印的代码，谢谢了。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.copy
app.DisplayAlerts=False

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
Dim image = ClipBoard.GetImage
'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,image.width, image.height)
doc.Body.Children.Add(rg1) '将图片对象加入报表
Doc.Preview() '预览

app.quit

此主题相关图片如下：qq图片20171120194007.jpg

你要打开生成后的报表，而不是模板

还是不懂怎么修改

正常生成报表：http://www.foxtable.com/webhelp/scr/1145.htm

 为什么我用这个代码生成的图片，宽变成一万多像素了