指定打印页（Excel代码集团）

 

 代码如下：

Sub Pt()
Dim FmP, ToP
FmP = InputBox("请输入起始打印页", "打印", 1)
ToP = InputBox("请输入结束打印页", "打印")
Sheets(2).PrintOut from:=FmP, to:=ToP
End Sub