Nếu có máy in thì in thử luôn xem sao, chọn ít lớp thôi cho đỡ tốn giấy, ví dụ từ 11B đến 11D chẳng hạn! Thử luôn nếu trục trặc chỗ nào tôi sửa luôn nhé! Hồi âm lại ngay cho tôi. Tôi không có máy in nên không Test được.
Tôi thì lại nghĩ chẳng anh hưởng gì cả! Còn nếu như thực sự nếu tác giả sợ ảnh hưởng thì copy File gốc ra thêm mấy bản nữa cất đi đề phòng.
Sub PrintLst()
Dim arr(8)
Dim i As Integer
StartRow = Range("StartRow")
EndRow = Range("EndRow")
For i = StartRow To EndRow
arr(i) = Range("H" & i).Value
Range("A5").Value = arr(i)
ActiveSheet.PrintOut Copies:=1
Next i
End SubDữ liệu của mình vẫn như file gởi ở trên, nhưng không biết tại sau lại chạy hơi lâu.
Sub InDanhSach()
Application.ScreenUpdating = False
On Error Resume Next
[h1:h1000].Clear
[e7:e1000].AdvancedFilter 2, [h1], Unique:=True
[h2:h1000].Sort [h2], 1
tmp1 = [h2:h1000].Find([j1]).Address
tmp1 = [h2:h1000].Find([j2]).Address
For Each cls In Range(tmp1, tmp2)
[a5] = cls
[e7:e1000].AutoFilter 1, cls
ActiveSheet.PrintOut Copies:=1
Next
Selection.AutoFilter
End SubCó lẽ chỗ màu đỏ phải sửa lại thành [h2:h1000].Find([j1]).Address
Nhầm lẫn thì ai cũng có mà, bác sửa lại nhưng cả 2 đều là tmp1. Hậu quả của World Cup.
Tham khảo thêm cách này
