Hỏi cách dùng vòng lặp duyệt để In ấn

[Tường_Vi]

Chào Anh/Chị

Sheét "Data" có dữ liệu từ dòng 1 đến 100 (bản ghi)
Tại sheet4 "Print" mình sẽ in tất cả dữ liệu trên 100 bản ghi nhưng không in dòng 5, dòng 13-15, và dòng 25-30 v.v..

Tổng Quát
Thực hiện In:
- From: 1
- To: 100
- Bỏ Qua: 5; 13-15; 25-30

Nếu dòng bỏ qua để trống bản ghi sẽ in liên tục từ 1 đến 100

đoạn code hiện tại em chưa làm được phần Bỏ Qua

tusoHD = UserForm3.ComboFrom.Value   
densoHD = UserForm3.ComboTo.Value
 
tudong = tusoHD + 4 ' do sheet Data có 4 dòng dữ liệu bỏ trống trên cùng
dendong = densoHD + 4     
For i = tudong To dendong ' tính số hóa đơn cần in ra - Bản ghi    

For j = 1 To 27 ' co 27 cot gia tri (Trường) trong sheet IMPORT    

Sheet4.Cells(j, 18) = Sheet1.Cells(i, j)        

Next j    

Sheet4.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:=UserForm3.ComboBox1.Value    Next i

Cám ơn nhiều

 

[huuthang_bd]

Không thấy file của bạn nên tôi cũng không biết như thế nào. Gửi tặng bạn file này xem bạn có sử dụng được không.

 

[Tường_Vi]

Dear Anh Thắng
File a gửi đúng ý em, nhưng em chưa cách dùng mảng bẫy lỗi duyệt in trong trường hợp STT (số thứ tự) không liên tục (ví dụ: xóa dòng, xóa bản ghi....v..v..làm STT ko liên tục

Trong file của Anh Số dòng cần in sẽ bằng i + 5
Có cách nào trước khi in nó duyệt qua không? Em dùng vòng lặp
nhưng dữ liệu nhiều thấy nó chậm

Dim a As Long ' so luong hoa don da hach toan

a = Sheet1.[A65000].End(xlUp).Row - 1 - 5' (1 cua **** & 5 dong tren cung

For i = 1 To a

    Sheet1.Cells(i + 5, 1) = i
Next
print_open