VB6 调取EXCEL 打印时指定 打印范围和打印份数

ActiveWindow.SelectedSheets.PrintPreview

 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=2, Collate :=True

上面的代码设置打印的页面数为从1到2，打印份数为2。

Function Brower_Excel() As Boolean

    Dim strNewFileName As String
    Dim objXApp             As Excel.Application
    Dim Excel_Book          As Excel.Workbook
 
On Error GoTo ErrH


    strNewFileName = "C:\Users\nhadmin5\Desktop\PVH.xlsx"
     Set objXApp = New Excel.Application
    Set Excel_Book = objXApp.Workbooks.Open(strNewFileName)
    objXApp.ActiveSheet.PrintOut From:=2, To:=3, Copies:=1, Collate:=True
    
    ‘是否显示’
    objXApp.DisplayAlerts = True
    objXApp.Visible = True


    Set Excel_Book = Nothing
    Set objXApp = Nothing


    Exit Function
ErrH:
    Err.Clear
    Exit Function
End Function