|
Sub 批量套打()
Application.ScreenUpdating = False
Dim ar As Variant
With Sheets("数据表")
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 2 Then MsgBox "数据表为空!": End
ar = .Range("a1:j" & r)
End With
With Sheets("打印表")
For i = 2 To UBound(ar) Step 11
.Range("b5:l14") = Empty
n = 4
For s = i To i + 9
If s <= UBound(ar) Then
n = n + 1
For j = 1 To UBound(ar, 2)
.Cells(n, j + 1) = ar(s, j)
Next j
End If
Next s
.PrintOut
'.PrintPreview '显示打印预览
Next i
End With
Application.ScreenUpdating = True
MsgBox "打印完毕!", 64, "提醒!"
End Sub
|
评分
-
1
查看全部评分
-
|