电机效率测试:vb打印问题

来源:百度文库 编辑:神马品牌网 时间:2024/05/04 17:41:53
Dim i
Dim objexcel As Object
Set objexcel = CreateObject(Excel.Application)
objexcel.workbooks.Open FileName:=App.Path & \"\\book1.xls\"
objexcel.Sheets.PrintOut
For Each i In objexcel.Sheets
i.PrintOut
Next i
objexcel.Quit

以上代码是打开excel文档并打印,请问怎么在打印的时候选择打印机,上面代码是默认打印机