|
Sub 批量打印()
Sheets("2").Select
Dim x As Integer
For x = 2 To 9 Step 4
With Sheets("3")
Range("k7") = .Cells(x, "d")
Range("M7") = .Cells(x, "E")
Range("k15") = .Cells(x + 1, "d")
Range("M15") = .Cells(x + 1, "E")
Range("k23") = .Cells(x + 2, "d")
Range("M23") = .Cells(x + 2, "E")
Range("k31") = .Cells(x + 3, "d")
Range("M31") = .Cells(x + 3, "E")
.PrintOut
End With
Next x
End Sub |
|