excel 如何利用数据实现批量打印

Ele。

现有销货数据的汇总表， 想要把每行数据都弄成销货单再打印。
我在表中做了个销货单的模版，请各位给帮忙，谢谢了。
打印出来的销货单最好能在一张A4纸上能打印2个销货单就好了。

老骥705664849

Sub test()
Sheets("销货单").UsedRange.Offset(11).Clear
ar = Sheets("数据").[a1].CurrentRegion
With Sheets("销货单")
    y = 12
    For i = 2 To UBound(ar) - 2
        .Rows("1:11").Copy .Cells(y, 1)
        y = y + 11
    Next i
    m = 1
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            n = 1
            .Cells(m + 2, 2) = ar(i, 1)
            .Cells(m + 3, 2) = ar(i, 2)
            .Cells(m + 4, 2) = ar(i, 3)
            .Cells(m + 5, 2) = ar(i, 4)
            .Cells(m + 6, 2) = ar(i, 5)
            .Cells(m + 7, 2) = ar(i, 6)
            For j = 7 To UBound(ar, 2) Step 3
                .Cells(m + 2 + n, 4) = ar(i, j)
                .Cells(m + 2 + n, 5) = ar(i, j + 1)
                .Cells(m + 2 + n, 6) = ar(i, j + 2)
                n = n + 1
           Next j
          m = m + 11
        End If
    Next i
End With
End Sub

老骥705664849

销货单明细.rar (20.1 KB, 下载次数: 164)

2020-7-7 10:27 上传

点击文件名下载附件

Ele。

老骥705664849 发表于 2020-7-7 10:27

非常感谢 感谢            之前看到过有弄成有   连续打印  控件按钮的那种。  请问 大神可以给弄个吗？

老骥705664849

Ele。 发表于 2020-7-7 15:25
非常感谢 感谢            之前看到过有弄成有   连续打印  控件按钮的那种。  请问  ...

连页面设置都给你做好了，还需要什么呢？？？

Ele。

老骥705664849 发表于 2020-7-7 15:42
连页面设置都给你做好了，还需要什么呢？？？

真是不好意思我弄错啦      刚刚拿到打印纸，不是A4纸， 是套打的。

老骥705664849

呵呵呵，你这不是在瞎折腾别人吗？

老骥705664849

呵呵呵，你这不是在瞎折腾别人吗？

Ele。

老骥705664849 发表于 2020-7-7 17:50
呵呵呵，你这不是在瞎折腾别人吗？

非常抱歉 我不想这样的。 领导以前发个销货单的图片给我，  让我照着这个格式。弄数据，用EXCEL打出来。 我一直以为是用A4打印。  今天寄帮忙回复后，我发给领导看，领导说是套打。  怪我，是我没问清，之前没接触过套打的，所以不了解。刚才也是搜了怎么插入套打的图片，现弄的背景图。  真是不好意思。

Ele。

对不起 真是不好意思   怪我。   之前领导把销货单图片发给我，让我照着这个模板在EXCEL里整体数据，在EXCEL打印，我以为是A4来着。今天你给帮忙弄好之后，我发给领导看，领导说是套打。 我以前没接触过套打，又从网上搜的怎么把图片弄成背景图，也不知道对不对。 真是不好意思。