如何实现批量打印

vicern

本人0基础，因为工作关系，很需要这样操作，我想在“中小学生转学“这个表用上”萍乡市事业单位岗位聘用人员汇总表（新增修改）“一样的功能

灰色幽灵

你用错控件了，应该插入ActiveX控件就可以了

vicern

灰色幽灵 发表于 2019-6-14 14:57
你用错控件了，应该插入ActiveX控件就可以了

我新手，不会弄，老师能不能帮忙修改下

灰色幽灵

你用我红色标出来的控件

vicern

灰色幽灵 发表于 2019-6-14 15:04
你用我红色标出来的控件

标出来了对于我来讲也是没用，我根本也点不懂，那个转学表，就是我一点一点照着原来改过来的，那里对那里不对我一点都不知道

网海遨游

楼主：这样行不？没用窗体。实现单页打印或批量打印。

vicern

网海遨游 发表于 2019-6-14 15:55
楼主：这样行不？没用窗体。实现单页打印或批量打印。

这样可以打印了，两个按键都能打印，但是那个上下按钮不起做用，点了光是第几页有变化，表格里面没有变化，不能实现预览效果，不过很感谢你！

网海遨游

呵呵。我的代码在“数据源”工作表中，你看到的代码是你原来代码。
点击上、下箭头，表面上没看到反应，当你点击打印按钮时，就起作用了。因为查找是由打印按钮引起的。

Sub 批量打印()
    Set sh2 = Sheets("打印用")
    If sh2.[o3] = "" Or sh2.[o3].Value < sh2.[o1].Value Then
       MsgBox "请检查O1单元格编号或O3单元格编号！", 48, "警告!!!": Exit Sub
    End If
    k = sh2.[o1]
    For i = k To sh2.[o3]
        sh2.[o1] = i
        Call 打印指定页
    Next i
End Sub

Sub 打印指定页()
    Call 查找
    Set sh2 = Sheets("打印用")
    sh2.[a1:j30].PrintOut Copies:=1
End Sub




Sub 查找()
    Set sh1 = Sheets("数据源")
    Set sh2 = Sheets("打印用")
    arr = sh1.UsedRange
        With sh2
           If .[o1] = "" Then
           .[c3].ClearContents
           .[e3].ClearContents
           .[g3].ClearContents
           .[c4].ClearContents
           .[c6].ClearContents
           .[c8].ClearContents
           .[c12].ClearContents
           .[g12].ClearContents
           .[j12].ClearContents
           End If
           If .[o1].Value > UBound(arr) - 1 Then MsgBox "O1单元格输入编号超出范围！", 48, "警告!!!": Exit Sub
    For i = 1 To UBound(arr)
        If arr(i, 1) = .[o1] Then
           .[c3] = arr(i, 2)
           .[e3] = arr(i, 3)
           .[g3] = arr(i, 4)
           .[c4] = arr(i, 5)
           .[c6] = arr(i, 6)
           .[c8] = arr(i, 7)
           .[c12] = arr(i, 8)
           .[g12] = arr(i, 9)
           .[j12] = arr(i, 10)
           Exit For
        End If
    Next i
    End With
End Sub

网海遨游

你图片中显示的所有代码，都不是我的代码，是你原有的代码，我没删除。我的代码是放在“数据源”表中。我把所有代码，重新放在模块中，你看看。
另：O1单元格数据，通过上、下箭头改变后，在模板中一时，看不出来变化，但一旦点击打印按钮，就会触发查找功能代码，打印出来的就是你想要的。

vicern

网海遨游 发表于 2019-6-17 19:41
你图片中显示的所有代码，都不是我的代码，是你原有的代码，我没删除。我的代码是放在“数据源”表中。我把 ...

确实可以打印了，就是在打印用表上面没有实时显示，用=VLOOKUP(M1,数据源!A:J,2,0)这个函数能实现，但我觉得不高级！呵呵