如何设定可变页码的打印VBA程序

鱼漂

我有一个表,每次做出来要打印的页码不同,基本是这样:
第一次可能打印1~5页
第二次可能打印1~200页
第三次可能打印1~56页
第四次可能打印1~208页
每次均从第1页起,但最终页不一样.希望只要点击一个按钮即可实现上述的打印,请教这样VBA打印程序如何编写?
我设置的打印程序如下
Sub Macro5()
'
' Macro5 Macro
'

'
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=4, Copies:=1
End Sub

上面的打印程序中To:=4我希望这个4是从单元格中自动提取的，因为我的打印页码已经在单元格中自动计算出来了。 请教各位高手如何修改？

老鹰

把4变更为cells(1,1)
cells(1,1)为A1，是用cells(行,列)表示的单元格格式，你可以依据实际情况调整看下

舒畅

设个变量传递你的要打印页数值就可以了。

假定你的值放在A1单元格，则在你的打印语句前追加以下语句：
Dim x As Integer '定义变量x为“打印到”页数
x = Sheets("Sheet1"Cells(1, 1Value '给x赋值，即读取A1中的你预设的数字。

注意要把你打印语句中的 4 改成 x