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

 

 代码如下:

Sub Pt()
Dim FmP, ToP
FmP = InputBox("请输入起始打印页", "打印", 1)
ToP = InputBox("请输入结束打印页", "打印")
Sheets(2).PrintOut from:=FmP, to:=ToP
End Sub
posted @ 2022-08-07 18:26  熬肥妖  阅读(52)  评论(0)    收藏  举报