Sub 分页打印()
& O1 r& s8 ?! a* Z1 [x = InputBox("输入开始页")
' R' [( ]6 l: j; |y = InputBox("输入结束页")1 @% z4 l! |* g
For e = x To y
1 n+ I; V6 ~! {+ _( UZ = 5 * CInt(e) - 4
4 C4 W9 z k! t% r" G" O. QCells(1, 11) = Z8 b# C/ W* [" ~0 b) f
ActiveWindow.SelectedSheets.PrintOut
5 h( o \3 _9 B/ B* hNext
, W& I3 _" p5 e! v. e; v8 `; yEnd Sub