不尽所求再求助 —— 连续打印！

cai9906

连续打印.rar (29.46 KB, 下载次数: 16)

2014-11-26 20:35 上传

点击文件名下载附件

附件中表述表述难免“逻辑不清”敬请谅解！！
期盼高手帮助！！


补充内容 (2014-12-2 06:39):
feiren228 高人帮助解决了！！并上传了附件
http://club.excelhome.net/thread-1169335-1-1.html

jpj123

1. Sub test连续打印()
   
2. Dim x%, y%, x1%, y1%, i%, a
   
3.     On Error Resume Next
   
4.     x = InputBox("请输入页面打印开始序号:", "打印设置")
   
5.     y = InputBox("请输入页面打印结束序号:", "打印设置")
   
6.     x1 = InputBox("请输入类别打印开始序号:", "打印设置")
   
7.     y1 = InputBox("请输入类别打印结束序号:", "打印设置")
   
8.     a = MsgBox("确定打印吗？", vbOKCancel, "提示")
   
9.     If a = 1 Then
   
10.     For i = x To y
    
11.     For j = x1 To y1
    
12.     Cells(1, 8) = i
    
13.     Cells(2, "H") = j
    
14.     ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, copies:=1, Collate:=True
    
15.     Next
    
16.     Next
    
17.     End If
    
18. End Sub

复制代码

请测试代码

jpj123

详见附件   

cai9906

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单元格）起始、终止数值 —— 表内没有信息显！！
（现身边没有打印机 —— 无法“验证”是否可打印出输入类别起始、终止范围的信息）
能解决了【一】感谢不尽！！

jpj123

cai9906 发表于 2014-11-26 21:49
致谢！
代码如下，输入页面打印（H2单元）起始、终止数值页号，输入类别（C2单元格）起始、终止数值 —— ...

（H2单元）起始、终止数值页号忽略 ???     为什么要忽略？？什么意思 ？
你试下H2单元格无数据，表内有数据 吗？

cai9906

jpj123 发表于 2014-11-26 21:55
（H2单元）起始、终止数值页号忽略 ???     为什么要忽略？？什么意思 ？
你试下H2单元格无数据，表内有 ...

（H2单元）起始、终止数值页号忽略 ???    —— 不输入页面起始、终止数值（ 意在想打印类别范围内所有页面的信息）
你试下H2单元格无数据，表内有数据 吗？ —— 试了，如果只是输入类别起始、终止数值，（不输入页面起始、终止数值），C2 单元格数值也相应变更显示（如起始、终止类别分别输入1 ， 3，C2 单元格数值也随之依次显现1、2、3变更 ），但表内没有显现相应类别的信息！

cai9906

此时身边没有打印机，无法验证是否不显现信息的状况下，能打印出相应的信息
【一】的情况能随着页号的变更显现出相应的信息。

jpj123

cai9906 发表于 2014-11-26 22:16
（H2单元）起始、终止数值页号忽略 ???    —— 不输入页面起始、终止数值（ 意在想打印类别范围内所有 ...

—— 不输入页面起始、终止数值（ 意在想打印类别范围内所有页面的信息）是等于输入了1：4页的效果吗？

jpj123

请测试附件，如果你不想设置类别或者页数直接点确定就是了，(别点取消)。

cai9906

jpj123 发表于 2014-11-26 22:40
—— 不输入页面起始、终止数值（ 意在想打印类别范围内所有页面的信息）是等于输入了1：4页的效果吗？

不输入页面起始、终止数值（ 意在想打印类别范围内所有页面的信息）—— 不是等于“默认”输入了1：4页（因为每类的页面是不相同的）。

如果只是输入类别起始、终止数值，（不输入页面起始、终止数值），C2 单元格数值也相应变更显示，如起始、终止类别分别输入1 ， 3，C2 单元格数值也随之依次显现1、2、3变更 （正确），但表格内其他信息没能随之显现出在表内！