Bạn thử code này xem nhé
Sub test()
Dim i As Integer
For i = 1 To getLR("List", "A") - 1
Sheets("sheet1").[R6] = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub
Function getLR(sheetname As String, col As String)
getLR = Sheets(sheetname).Range(col & Rows.Count).End(xlUp).Row
End Function