Góp ý dùm em đoạn code cho nút Print (1 người xem)

[truckhoa2006]

Em có 1 bảng lương gồm 1 sheet là bảng lương và 1 sheet là In Phiếu Lương:
- Em đã tạo 1 nút button cho lệnh in . Khi nhấn nút Print thì nội dung cần in sẽ xuất hiện sang Sheet IN Phiếu Lương.
- Vấn đề xảy ra như sau:
1. Nhấn nút Print thì máy báo lỗi code. Nếu thêm 1 dòng trống vào dòng cuối cùng của bảng tính thì không bị lỗi nữa, Vậy là sao, có nghĩa là dữ liệu của em đến dòng 149, nếu sau dòng 149 không có thêm 2 dòng trống thì nó báo lỗi ngay. Xin cho em ý kiến cách giải chỗ này.
2. Nếu sửa lại như mục 1 để in thì khi nhấn PRINT thì nó in luôn cả cột tổng cộng. In luôn cả người ký tên, kế toán trường .....

Em đang bí chỗ này lắm lắm luôn. Mong các anh chị thầy cô giúp em.
Mọi người lấy file từ mediafire dùm em nha:
Link: http://www.mediafire.com/view/tv4hiyjhjn3ek0f/Hoi_giai_phap_excel_(_Print_loi).xls

Cám ơn mọi người quan tâm.

 

[jack nt]

Em có 1 bảng lương gồm 1 sheet là bảng lương và 1 sheet là In Phiếu Lương:
- Em đã tạo 1 nút button cho lệnh in . Khi nhấn nút Print thì nội dung cần in sẽ xuất hiện sang Sheet IN Phiếu Lương.
- Vấn đề xảy ra như sau:
1. Nhấn nút Print thì máy báo lỗi code. Nếu thêm 1 dòng trống vào dòng cuối cùng của bảng tính thì không bị lỗi nữa, Vậy là sao, có nghĩa là dữ liệu của em đến dòng 149, nếu sau dòng 149 không có thêm 2 dòng trống thì nó báo lỗi ngay. Xin cho em ý kiến cách giải chỗ này.
2. Nếu sửa lại như mục 1 để in thì khi nhấn PRINT thì nó in luôn cả cột tổng cộng. In luôn cả người ký tên, kế toán trường .....

Em đang bí chỗ này lắm lắm luôn. Mong các anh chị thầy cô giúp em.
Mọi người lấy file từ mediafire dùm em nha:
Link: http://www.mediafire.com/view/tv4hiyjhjn3ek0f/Hoi_giai_phap_excel_(_Print_loi).xls

Cám ơn mọi người quan tâm.

trong đoạn code vòng lặp for:

For i = 1 To UBound(Tm, 1) Step 2
For j = 0 To 10 'So dong noi dung can xuat hien
Kq(k + j, 6) = Tm(i + 1, Cl(j))
Next j
k = k + 12 'Khoang cach tinh tu dau phieu 1 den dau phieu 2
Next i

có 2 tình huống xảy ra

a/ ubound(tm,1) là 1 số lẻ: vì vòng lặp chạy từ 1 (số lẻ) step =2 thì giá trị cuối cùng của i = ubound(tm,1) vậy i+1 > ubound(tm,1) nên bị lỗi.
b/ ubound(tm,1) là 1 số chẵn: thì không bị lỗi nhưng i chỉ chạy đến ubound(tm,1)-1 nên sẽ bỏ sót dòng cuối cùng.

giải pháp tạm: để sử dung tiếp thì cứ chèn 2 dòng trắng rồi cho nó hidden.
giải pháp triệt để: sửa các lỗi nói trên (vì chưa có thời gian tìm hiểu kỹ codes của bạn nên chưa góp ý thêm được)

 

[truckhoa2006]

Cám ơn bạn đã giải thích thêm cho mình 1 đoạn nữa để mình áp dụng xem sao.