VB调用Excel软件实现打印预览功能 - 编程论坛

#2

hjxlj2013-07-23 21:29

程序代码：

Option Explicit

Dim EelApp As Excel.Application
Dim EelWork As Excel.Workbook
Dim EelSheel As Excel.Worksheet

Private Sub Command1_Click()
  Set EelApp = New Excel.Application
  EelApp.Visible = True
  Set EelWork = EelApp.Workbooks.Open("C:\打印.xls")
  Set EelSheel = EelWork.Worksheets(1)
  EelSheel.PrintPreview  '打印预览
End Sub

Private Sub Form_Unload(Cancel As Integer)
  EelApp.Workbooks.Close
  EelApp.Quit
  Set EelSheel = Nothing
  Set EelWork = Nothing
  Set EelApp = Nothing
End Sub

注意，必须事先在VB6中引用Excel库。

#3

岁月如刀2013-07-23 22:30

不知道这个方法对你没有帮助。

之前碰到不知道如何操作的时候，我会先打开EXCEL/WORD，然后把宏录制一下，然后看一下里面的VBA~....然后.....

哈哈，然后你懂得~~

#4

hjxlj2013-07-23 22:45

回复 3楼岁月如刀

楼主不是要用VBA实现这个功能，而是要通过VB来实现这个打印预览的功能。

#5

岁月如刀2013-07-23 22:58

以下是引用hjxlj在2013-7-23 22:45:16的发言：

楼主不是要用VBA实现这个功能，而是要通过VB来实现这个打印预览的功能。

哦...

是我搞错了...Sorry.大侠。