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

hbdyyx

jpj123 发表于 2014-11-27 11:00
谢谢楼上美女提醒，修改了一下！

理解性的给他（她）补上了H1单元格的公式，
帮着测试了一下，起始页1，终止页不输入信息值（ 他。她）的想法默认 H1中的各类生成的数值，当类别起始输入1，终止输入2，
结果执行到类别2 的第1页不再继续执行了（类别2有 3页）
连续打印（1）.rar (29.57 KB, 下载次数: 4)

2014-11-27 11:23 上传

点击文件名下载附件

hbdyyx

搂主的想法真的好有“创意”。似乎不能实现。
待再后来学习。

cai9906

hbdyyx 发表于 2014-11-27 11:28
搂主的想法真的好有“创意”。似乎不能实现。
待再后来学习。

哎呀，不泼“冷水”行不？

cai9906

hbdyyx 发表于 2014-11-27 11:23
理解性的给他（她）补上了H1单元格的公式，
帮着测试了一下，起始页1，终止页不输入信息值（ 他。她）的 ...

的确是这些问题。

w060925

jpj123 发表于 2014-11-27 11:00
谢谢楼上美女提醒，修改了一下！

高手们想办法：如果把附件中 B1 单元格“自动生成”的数值 —— 能够“自动生成”在 H2 单元格中，搂主的问题就能解决了！（代码是瞎蒙的）
连续打印（2）.rar (30.15 KB, 下载次数: 5)

2014-11-27 14:02 上传

点击文件名下载附件

w060925

搂主再试一试下面的代码
Sub test连续打印()
Dim x%, y%, x1%, y1%, i%, a
    On Error Resume Next
    x = InputBox("请输入页面打印开始序号:", "打印设置", 1)
    y = InputBox("请输入页面打印结束序号:", "打印设置")
    If y = "" Then y = Cells(1, 8).Value
    x1 = InputBox("请输入类别打印开始序号:", "打印设置", 1)
    y1 = InputBox("请输入类别打印结束序号:", "打印设置")
    a = MsgBox("确定打印吗？", vbOKCancel, "提示")
    If a = 1 Then
    For j = x1 To y1
    For i = x To y
   
   
   
    Cells(2, 3) = j
      
    Cells(x, y) = i
   
    Cells(2, 8) = i
   
   
   
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, copies:=1, Collate:=True
    Next
    Next
    End If
End Sub

yg509

虽然没看懂觉得不错也是要顶起

w060925

总算“明白”了搂主真“伤脑筋” 的想法

实现以下两种“目的”：

（一）

x = InputBox("请输入页面打印开始序号:", "打印设置", 1)

y = InputBox("请输入页面打印结束序号:", "打印设置", 4)  【可选性不大于H1单元格数值】

x1 = InputBox("请输入类别打印开始序号:", "打印设置", 1)

y1 = InputBox("请输入类别打印结束序号:", "打印设置", 100) 【可选同打印开始序号，只想打印某一类的所有信息】

a = MsgBox("确定打印吗？", vbOKCancel, "提示")  

If a = 1 Then

    For j = x1 To y1

    For i = x To y

    Cells(2, 3) = j

Cells(2, 8) = i

……….

（二）

x = InputBox("请输入页面打印开始序号:", "打印设置", 1)

y = InputBox("请输入页面打印结束序号:", "打印设置", 4)  【不输入数值】

If y = "" Then y = Cells(1, 8).Value  【 以 H1单元格内数值为打印结束序号 】

x1 = InputBox("请输入类别打印开始序号:", "打印设置", 1)

y1 = InputBox("请输入类别打印结束序号:", "打印设置", 100) 【可自选输入类别打印结束序号，打印某几类的所有信息】

   ……………

反复“测试了”不可能实现！

1）If y = "" Then y = Cells(1, 8).Value  【 以 H1单元格内数值为打印结束序号 】，各类页数是不同样多的，打印从每类第 1页开始 —— H1单元格内数值终止页，如何“激活”

2）一个“程序”做不到。

w060925

补充

搂主想实现的两种“目的”简要“概括”：

◆只打印某一类，输入该类页面的起始、终止页号，该类的起始、终止（同一个）号， —— 连续打印出范围内信息；（ 二楼的老师以帮助解决）

◆想打印某几类（输入类别起始、终止号），每类都从第一页开始，以各页的实有页数（H1单元格数值）终止（难！！ 因为C2单元格变化，H1单元格数值也随之变化），“程序”执行的过程中，每当类别（C2单元格）号变更时，相应的起始页1 ——H1单元格数值都要“激活”。（  目前还“无解”）

说的对不？搂主。

cai9906

w060925 发表于 2014-11-27 16:45
总算“明白”了搂主真“伤脑筋” 的想法实现以下两种“目的”：（一）x = InputBox("请输入页面打印开始序号 ...

你的“明白”正是！