word怎么设置打印（XX页-XX页）

fhv123

Sub 打印word1()Dim doc, wb, wb1 As Object
Dim i%, nrow1%, y$

nrow1 = Range("b65536").End(xlUp).Row
Set WD = CreateObject("word.application")
For i = 3 To nrow1

    y = Range("b1") & "\" & Range("b" & i)
    Set wb1 = WD.documents.Open(y)
    wb1.PrintOut 'Range:=wdPrintRangeOfPages, Pages:="1"  怎么在这设置打印页码

Next
wb1.Close
WD.Quit
End Sub

fhv123

哪位大神给看看