.save("d:\aaa.wmf")语句在执行时报错“未将对象引用设置到对象的实例。”测试失败；
另外，这种方法与我转换成PDF的思路是一样的呀，我的整个打印过程分为两步
第一步：将Excel 利用Dopdf虚拟打印机自动转换成PDF格式文件，用于解决Excel内的文字打印不完整的情况；
第二步：再利用真实的打印机自动打印刚刚转换的PDF格式文件；
现在的问题，第一步我将Dopdf虚拟打印机设置成了默认打印机，但是第二次需要用真实打印机的时候就无法切换了；由于打印频率非常高，如果来回切换默认打印机，也将影响程序执行效率；现在就是卡在选择打印机上面了，怎么办？
-------以下代码为第一次打印————这里用虚拟打印机，每台电脑都会安装；
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(filepath)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
Rg.EntireRow.AutoFit '自动调整行高
wb.saved = True
Dim UsedRange As MSExcel.Range = ws.UsedRange
UsedRange.copy
ClipBoard.GetImage.save("d:\aaa.wmf")
App.DisplayAlerts = False
App.Visible = True
If rl.Contains("配料") Or rl.Contains("系统管理员") Then '
Try
Ws.PageSetup.PrintQuality = 96 ’如果打印机不支持96 Dpi时，此行会报错；
Ws.PrintOut(Preview:=False,ActivePrinter: ="doPDF v7") '直接打印;
Catch ex As Exception
msgbox("目前系统设置的默认打印机不支持96 Dpi的打印质量,推荐使用DoPdf V7虚拟打印机")
End Try
Else
Return
End If
----文件监视器代码（这是第二次打印）；——这里使用真实打印机，每台电脑对应的真实默认打印机会不同；
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds < 2000 Then '间隔2000毫秒
Return
End If
Dim Proc As New Process
Proc.File = e.FullPath
Proc.Verb = "Print" '指定动作
Proc.Start()
ShowAppWindow("Adobe Reader",4)
ShowAppWindow(e.Name,5)
[此贴子已经被作者于2018/10/24 16:57:40编辑过]
加好友 
发短信
Post By：2018/10/8 14:53:00 [显示全部帖子]
Post By：2018/10/24 17:27:00 [显示全部帖子]
此主题相关图片如下：asdf.jpg
