指定打印页(Excel代码集团)

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