Question

如何利用Excel vba程序将每张工作表转成jpg格式的图片

Answer 1

'需安装有打印机"Microsoft Office Document Image Writer"
Sub test()
    On Error Resume Next
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).PrintOut ActivePrinter:="Microsoft Office Document Image Writer", PrToFileName:=Sheets(i).Name & ".mdi"
    Next
End Sub

追问

mdi也是一种格式吧，我如果想转成jpg，是不是直接改成jpg就行了

追答

貌似不行，这是利用OFFICE自带的图片打印机，生成的文件格式是.mdi的，需要格式转化工具转化成.jpg
或者可以下载一个软件，“ImagePrinter”，可以打印成想要的格式,jpg,bmp,png等等

追问

谢谢你，我先下个软件试试

我下载了ultra image printer，但是直接打出来的是画图板，还得每张另存为jpg才行，有没有什么虚拟打印机能在程序里设定好打印格式以及输出的文件夹？请大侠赐教！

追答

就下载名字是imageprinter的

看看这个能用不http://www.greenxf.com/soft/28630.html

追问

太感谢你了，完美解决了我的问题！