VB 如何调用Excel的打印设置方法

Question

如题： VB调用excel时好像没有 类似printsetup 的方法

Answer 1

有啊，通过Worksheet对象的PageSetup属性设置打印选项。

Answer 2

比如：Option ExplicitSub main()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open("d:\model.xls")
    Set xlSheet = xlBook.Sheets(1)
    '设置打印纸张为B5
    xlSheet.PageSetup.PaperSize = xlPaperB5
    '设置打印方向为横向
    xlSheet.PageSetup.Orientation = xlLandscape
    '打印预览
    xlBook.PrintPreview
    
    xlBook.Close False '不保存内容关闭工作簿
    xlApp.Quit
End Sub

Answer 3

有打印功能啊，Excel.Worksheet.PrintOut