|
楼主 |
发表于 2014-11-26 21:49
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
jpj123 发表于 2014-11-26 20:51
详见附件
致谢!
代码如下,输入页面打印(H2单元)起始、终止数值页号,输入类别(C2单元格)起始、终止数值 —— “验证”是正确的(所期望的)!!
Sub test连续打印()
Dim x%, y%, x1%, y1%, i%, a
On Error Resume Next
x = InputBox("请输入页面打印开始序号:", "打印设置")
y = InputBox("请输入页面打印结束序号:", "打印设置")
x1 = InputBox("请输入类别打印开始序号:", "打印设置")
y1 = InputBox("请输入类别打印结束序号:", "打印设置")
a = MsgBox("确定打印吗?", vbOKCancel, "提示")
If a = 1 Then
For i = x To y
For j = x1 To y1
Cells(2, 8) = i
Cells(2, 3) = j
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, copies:=1, Collate:=True
Next
Next
End If
End Sub
问题又来了(恐怕所求不现实)—— 上述代码下,页面打印(H2单元)起始、终止数值页号忽略(“取消”),输入类别(C2单元格)起始、终止数值 —— 表内没有信息显!!
(现身边没有打印机 —— 无法“验证”是否可打印出输入类别起始、终止范围的信息)
能解决了【一】感谢不尽!!
|
|