从 Visual Basic 6 打印 excel sheet

Question

我需要以编程方式将 Excel 电子表格发送到我们的默认打印机。是否可以在没有人工交互的情况下做到这一点？

我可以使用 PrintFile 命令毫无问题地打印文本文件，但我无法 Excel 以这种方式打印。

如何在 VB6 中打印 Excel 文档？

Answer 1

这是使用 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的引用。

从 Visual Basic 6 打印 excel sheet

printing excel sheet from visual basic 6

printing

vb6