Xóa từng ô dữ liệu sau mỗi lệnh in (1 người xem)

[FPT_online]

Mình có file excel muốn sau mỗi lệnh in sẽ xóa 1 ô dữ liệu và khi xóa hết sẽ ngưng in. Mọi người giúp giùm với

 

[giaiphap]

Bạn sử dụng code này xem sao.

Public Sub GPE()
Dim Vung As Range
For Each Vung In Range("D2:D" & Range("D65000").End(xlUp).Row)
    ActiveWindow.SelectedSheets.PrintOut
    Vung.ClearContents
Next
End Sub

 

[FPT_online]

Bạn sử dụng code này xem sao.

Public Sub GPE()
Dim Vung As Range
For Each Vung In Range("D2:D" & Range("D65000").End(xlUp).Row)
    ActiveWindow.SelectedSheets.PrintOut
    Vung.ClearContents
Next
End Sub

Cám ơn bác nhiều lắm để em thử xem sao