指定打印页(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