如何在程序中打开Excel的一个文件，并且使用其打印和打印预览功能（可能很简单，可惜我太笨）

Question

如何在程序中开一个窗体，其内容为一个Excel文件，不能修改，但是能打印和预览

Answer 1

安裝一个软件就可解决. avdemo32.exe

Answer 2

' Dim xlobj As Excel.Application
' Dim xlsheetobj As Object
 'On Error GoTo objError
' Set xlobj = CreateObject("Excel.Application")
' If FileExists("C:\My Documents\" & FileExcel) Then
'    xlobj.Workbooks.Open ("C:\My Documents\" & FileExcel)
' Else
'    MsgBox FileExcel & "文件不存在，请检查!", vbCritical
'    Exit Sub
' End If
' Set xlsheetobj = xlobj.ActiveWorkbook.Worksheets("用户电费")
  ' 指向工作表
' xlsheetobj.Activate
' With xlsheetobj.PageSetup
'    .LeftHeader = "" & Chr(10) & "" & Chr(10) & "" & "共 &N 页"
'    .CenterHeader = "&"" 宋体""&16 " & pbDw & Trim(XzName) & Trim(XcName) & Format(Date, "YYYY年MM月") & "电费清单"
'    .LeftFooter = "第 &P 页"
'    If FWCheck1 Then
'    .PrintGridlines = True
'    Else
'    .PrintGridlines = False
'    End If
' End With
    
''ActiveWorkbook.Saved = True
'xlobj.Visible = True  ' 让EXCEL 可见
'xlobj.ActiveWindow.SelectedSheets.PrintPreview  ' 预演报表
' 如为打印：xlobj.ActiveWindow.SelectedSheets.PrintOut
''xlsheetobj.ActiveWorkbook.Saveed = True
'ActiveWorkbook.Saved = True' xlobj.Quit  ' 关闭EXCEL
' Set xlobj = Nothing
' Exit Sub

Answer 3

OLE1.CreateLink App.Path & "\模板3.xls"
    Set xlApp = CreateObject("Excel.Application")
       xlApp.Workbooks.Open App.Path & "\模板3.xls"
    Set xlBook = xlApp.Workbooks(1)
    Set xlSheet = xlBook.Worksheets(1)
    Clipboard.Clear
      With xlSheet
        .Range(.Cells(2, 1), .Cells(6, 6)).Copy
        .Range(.Cells(7, 1), .Cells(16, 1)).PasteSpecial xlPasteAll
      End With
    xlBook.Save
 '  xlBook.Saved = True
  OLE1.Update
  xlSheet.PrintPreview (True)
 xlApp.Quit