主题：虚拟打印机打印问题

 打印机是无法控制的。

 换一个虚拟打印机呗 https://www.baidu.com/s?ie=UTF-8&wd=%E8%99%9A%E6%8B%9F%E6%89%93%E5%8D%B0%E6%9C%BA

条件，不能直接使用变量。

http://www.foxtable.com/webhelp/scr/2626.htm

FileCreated事件加入代码，看弹出什么。

msgbox(e.FullPath)

你为什么要这样打印？直接打印不行？

从源头处理吧。动态的调整每一行的行高。

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = app.WorkBooks.open("C:\Users\dv rrxaI600 007\Downloads\br1706-03176(办单号)工艺书.xls")
    Dim Ws = wb.WorkSheets(1)
    Dim rg As MSExcel.Range = ws.UsedRange
   
    For i As Integer = 1 To rg.Rows.count       
        ws.Rows(i).RowHeight = ws.Rows(I).RowHeight + ws.Rows(I).RowHeight/2
    Next
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

 回复7楼，也可以修改事件代码

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)