Excel批量打印序号递增和打印份数

ningxl123

小弟是个菜鸟求教各位大佬，在Excel中实现批量打印序号递增和按单元格数值打印份数

序号递增是10-X，10是总箱数，X是总箱数-1，打印份数下单元格是要打印的份数，如图打印时自动生成10-1,10-2...10-9,每个序号打印2份，谢谢。

3190496160

Sub 打印()
With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$G$17"
    fs = .[j2]
    If fs = "" Or Not IsNumeric(fs) Then MsgBox "请输入打印份数！": Exit Sub
    For i = 1 To fs
        .[b1] = fs & "-" & i
        .PrintOut
    Next i
End With
End Sub

3190496160

请先设置[B1]单元格为文本格式，不然，会显示成日期的，切记

ningxl123

谢谢大佬:D

ningxl123

刚刚测试了一下，和我表述的有一点区别，单元格（B2）是总箱数单元格数值（L3）-箱号（N3），（N3）的值就是递增的序号，（N3）的最高值是（L3-1）；单元格（J2）是打印份数，比如（L3）是10箱，10-1打印2页相同的，10-2打印2页相同的。

ningxl123

我修改了一下，箱号可以正常变动，但份数只打印一份，而且打印是一页一个文件，能不能一次性的一个文件打印完成。
Sub 打印()
With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$G$17"
    fs = .[j2]
    If fs = "" Or Not IsNumeric(fs) Then MsgBox "请输入打印份数！": Exit Sub
    For i = 1 To [l3] - 1
        .[b1] = [l3] & "-" & i
        .PrintOut Copies:=fs   ’打印份数可以了
    Next i
End With
End Sub

ningxl123

Sub 打印()
With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$G$17"
    fs = .[j2]
   

If fs = "" Or Not IsNumeric(fs) Then MsgBox "请输入打印份数！": Exit Sub
    For i = 1 To [l3] - 1
        .[b1] = [l3] & "-" & i
        .PrintOut Copies:=fs
    Next i
End With
End Sub
打印份数也实现了，能不能帮忙改一下不要一页发送一次打印，而是一次性发送一个多页任务，谢谢

3190496160

Sub 打印()
With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$G$17"
    fs = .[j2]
    xs = .[l3]
    If fs = "" Or Not IsNumeric(fs) Then MsgBox "请输入打印份数！": Exit Sub
    For i = 1 To xs
        .[b1] = xs & "-" & i
        .PrintOut Copies:=fs
    Next i
End With
End Sub

3190496160

你无论要打印几份，数据都是在工作表的同一个区域的，不逐一发送打印，想一次性发送打印任务，恐怕得请微软专家重新修改ofice了

ningxl123

3190496160 发表于 2020-9-27 08:30
你无论要打印几份，数据都是在工作表的同一个区域的，不逐一发送打印，想一次性发送打印任务，恐怕得请微软 ...

谢谢，大佬