Question

vb 按钮打印 指定路径1个EXCEl文件

vb 按钮打印 指定路径1个EXCEl文件
Command1按钮一个
路径：d:\1.xlsx
希望可以直接点击按钮即可打印1.xlsx内容，请大神指教
求代码

Answer 1

with workbooks.open("d:\1.xlsx")
    .sheets(1).printout
    .close
end with

追问

我的是VB软件哦···运行错误
Private Sub Command1_Click()
With workbooks.open("d:\1.xlsx")
.sheets(1).printout
.Close
End With
End Sub

追答

前面的代码是VBA的，VB我没有环境测试，应该是要定义创建任务，大概是：

Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
ExcelID.Visible := True;
ExcelID.WorkBooks.Open("d:\1.xlsx");
ExcelID.WorkSheets[1].PrintOut

Answer 2

SendMessage 度娘有方法 可以对对应的提示框的某个按钮输入键盘或鼠标信息

Answer 3

过香积寺(王维)