In thẻ học sinh bị lỗi ảnh chồng lên nhau. (1 người xem)

[iloveit]

Chào các anh chị và các bạn.
Như trong file đính kèm mỗi khi in thẻ học sinh thì sẽ hiện ảnh của học sinh tương ứng, mỗi lần in được 6 thẻ.

Nhưng tôi đang bị một lỗi mà chưa khắc phục được đó là: khi chọn qua các học sinh tiếp theo thì ảnh chồng lên ảnh của học sinh trước đó, tức là ảnh trước đó không bị xóa đi mà chỉ nằm dưới thôi.

Nhờ các anh, chị và các bạn giúp tôi khắc phục vấn đề này.

Cảm ơn.

 

[nghiaphuc]

Chào các anh chị và các bạn.
Như trong file đính kèm mỗi khi in thẻ học sinh thì sẽ hiện ảnh của học sinh tương ứng, mỗi lần in được 6 thẻ.

Nhưng tôi đang bị một lỗi mà chưa khắc phục được đó là: khi chọn qua các học sinh tiếp theo thì ảnh chồng lên ảnh của học sinh trước đó, tức là ảnh trước đó không bị xóa đi mà chỉ nằm dưới thôi.

Nhờ các anh, chị và các bạn giúp tôi khắc phục vấn đề này.

Cảm ơn.

Bạn chú ý ở đầu code có mấy câu lệnh thế này:
[GPECODE=vb]Set p = ExcelApp.Sheets("IN").Pictures(1)
p.Delete
Set p = ExcelApp.Sheets("IN").Pictures(2)
p.Delete[/GPECODE]
Mấy câu này cho biết 2 picture số 1 và 2 sẽ bị xóa, còn 4 cái còn lại không bị xóa, dẫn đến việc chồng ảnh như vậy.
Cách khắc phục: Bạn thay 4 câu lệnh này bởi 1 câu lệnh:
[GPECODE=vb]Sheets("IN").Pictures.Delete[/GPECODE]
Ngoài ra, trong code của bạn, câu lệnh
[GPECODE=vb]pathApp = ThisWorkbook.Path & "\The.xls"[/GPECODE]
Có thể thay bởi câu lệnh sau sẽ gọn hơn.
[GPECODE=vb]pathApp = ThisWorkbook.FullName[/GPECODE]
Thêm nữa, thay vì sử dụng 6 đoạn code tương tự nhau để chèn 6 tấm hình, tôi nghĩ bạn nên sử dụng 1 sub có tham số để điều khiển việc này.

 

[iloveit]

File này đã ổn tuy nhiên có một nhược điểm là mỗi lần in chỉ in được 06 thẻ học sinh, muốn in tiếp ta phải chọn học sinh thứ 7.

Bây giờ tuôi muốn in từ học sinh từ thứ ... tới thứ ... thì chỉ điền vào 2 cell nào đó trong Excel và nhấn gán nút In thôi nhưng chưa biết viết code như thế nào. Nhờ các anh chị và các bạn giúp tôi viết đoạn code cho ý tưởng trên. Cám ơn.

 

[hhoang_56]

File này đã ổn tuy nhiên có một nhược điểm là mỗi lần in chỉ in được 06 thẻ học sinh, muốn in tiếp ta phải chọn học sinh thứ 7.

Bây giờ tuôi muốn in từ học sinh từ thứ ... tới thứ ... thì chỉ điền vào 2 cell nào đó trong Excel và nhấn gán nút In thôi nhưng chưa biết viết code như thế nào. Nhờ các anh chị và các bạn giúp tôi viết đoạn code cho ý tưởng trên. Cám ơn.

Bạn xem cái này: http://www.giaiphapexcel.com/forum/...-Giúp-code-in-tự-động-trong-cùng-1-trang-giấy