如何解决从Visual Basic 6打印Excel工作表
我需要以编程方式将Excel电子表格发送到我们的默认打印机。无需人工干预就能做到吗?
我可以使用PrintFile
命令来打印文本文件而不会出现问题,但是我无法使Excel以这种方式打印。
如何在VB6中打印Excel文档?
解决方法
这是使用Excel打印的基本模板:
Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Set ExcelApp = New Excel.Application
ExcelApp.Visible = False
ExcelApp.Workbooks.Open "c:\temp\test.xlsx"
'print the workbook
Dim ExcelBook As Excel.Workbook
Set ExcelBook = ExcelApp.ActiveWorkbook
ExcelBook.PrintOut
'print a worksheet
Dim ExcelSheet As Excel.Worksheet
Set ExcelSheet = ExcelApp.Sheets(1)
ExcelSheet.PrintOut
ExcelApp.Quit
End Sub
当然,您需要设置对Microsoft Excel X.X Object Library
的引用。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。