VBA批量打印亲自验证可用

Sub 宏6()
'
' 宏6 宏
'

'
Sheets("Sheet2").Range("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B1:B2"), CopyToRange:=Range("J1:N1"), Unique:=False
End Sub

Sub piliangdayin()

Dim r As Integer
Dim k As Integer
Dim str As String
With Sheets("sheet1")
For k = Application.WorksheetFunction.Min(.Range("I:I")) To Application.WorksheetFunction.Max(.Range("I:I"))
.Range("A9").Value = .Cells(k, "J").Value
.Range("c11").Value = .Cells(k, "k").Value
.Range("c14").Value = .Cells(k, "m").Value
.Range("E14").Value = .Cells(k, "n").Value
.Range("A7:H14").PrintOut
Next
End With
End Sub