[已解决]求批量打印

guolianjd

例表见附件

登记表1.rar (21.88 KB, 下载次数: 17)

2016-12-25 20:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-12-26 10:11

Sub test()
    Dim A, i
    A = Sheet1.Range("a1").CurrentRegion
    For i = 6 To UBound(A)
        With Sheet2
            .Range("b4") = A(i, 1)
            .Range("a6") = A(i, 2)
            .Range("c6") = A(i, 9)
            .PrintOut
        End With
    Next i
End Sub
登记表2.rar (28.37 KB, 下载次数: 27)

2016-12-26 10:10 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i
    A = Sheet1.Range("a1").CurrentRegion
    For i = 6 To UBound(A)
        With Sheet2
            .Range("b4") = A(i, 1)
            .Range("a6") = A(i, 2)
            .Range("c6") = A(i, 9)
            .PrintOut
        End With
    Next i
End Sub
登记表2.rar (28.37 KB, 下载次数: 27)

2016-12-26 10:10 上传

点击文件名下载附件

BL123123

爱疯 发表于 2016-12-26 10:11
Sub test()
    Dim A, i
    A = Sheet1.Range("a1").CurrentRegion

学习啦，下载备用，谢谢。