[已解决]循环打印的问题

wangluoyegou

如题，每打印一次，指定的单元格数字增加1，一直打印到我指定的数字。（表中希望只要点一下就能打印20张，单元格E10从1开始打印，一直打印N5指定的20张为止。

最佳答案

月排行榜 / 总排行榜

windvchina

2009-11-16 14:18

sub Pnt()

dim x as integer

dim y as integer

x = InputBox("请输入起始打列页码" & Chr(10) & Chr(10) & "默认为第1页", , 1)

y = InputBox("请输入终止打列页码")

ActiveWorkbook.PrintOut From:=x, to:=y

end sub

跳转到最佳答案楼层

windvchina

sub Pnt()

dim x as integer

dim y as integer

x = InputBox("请输入起始打列页码" & Chr(10) & Chr(10) & "默认为第1页", , 1)

y = InputBox("请输入终止打列页码")

ActiveWorkbook.PrintOut From:=x, to:=y

end sub