[已解决]求用代码：设置打印，可随时选定打印页码。

龙送农

用代码：设置打印，可随时选定打印页码。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-8-10 18:16

Sub Macro1()
    A = InputBox("请输入打印起始页：", "打印选择", 1)
    B = InputBox("请输入打印结束页：", "打印选择", 1)
    If A = "" Or B = "" Then MsgBox "你未输入完整信息！": Exit Sub
    ActiveWindow.SelectedSheets.PrintOut From:=A, To:=B, Copies:=1
End Sub

跳转到最佳答案楼层

zjdh

Sub Macro1()
    A = InputBox("请输入打印起始页：", "打印选择", 1)
    B = InputBox("请输入打印结束页：", "打印选择", 1)
    If A = "" Or B = "" Then MsgBox "你未输入完整信息！": Exit Sub
    ActiveWindow.SelectedSheets.PrintOut From:=A, To:=B, Copies:=1
End Sub