Cần cài trang in (2 mặt 1 mặt) bằng vba

[Sonquang93]

Chào mọi người
Mọi người ơi cho mình hỏi tí ạh.
Ví dụ mình có 1000 trang cần in 2 mặt. Nhưng ở trang nào mình có dùng lệnh ngắt trang rồi thì trang đó chỉ in 1 mặt thôi ạh. Vị dụ trang 3 và trang 4 có sử dụng ngắt trang (trang 4 và trang 5 không sử dụng lệnh ngắt trang) thì trang 3 in một mặt, còn trang 4 và trang 5 in trên cùng 1 tờ ạh
Cảm ơn mọi người nhiều

 

[Maika8008]

Chào mọi người
Mọi người ơi cho mình hỏi tí ạh.
Ví dụ mình có 1000 trang cần in 2 mặt. Nhưng ở trang nào mình có dùng lệnh ngắt trang rồi thì trang đó chỉ in 1 mặt thôi ạh. Vị dụ trang 3 và trang 4 có sử dụng ngắt trang (trang 4 và trang 5 không sử dụng lệnh ngắt trang) thì trang 3 in một mặt, còn trang 4 và trang 5 in trên cùng 1 tờ ạh
Cảm ơn mọi người nhiều

Vụ này có người chỉ cách để chuyển từ in 1 mặt => 2 mặt => lại 1 mặt rồi. Tìm bài đó rồi tùy biến cho mình chứ code lệnh in cực lắm, phải có sẵn máy in 2 mặt và tốn mực, tốn giấy. Không mấy ai làm giúp cho bạn được.

 

[thnghiachau]

Chào mọi người
Mọi người ơi cho mình hỏi tí ạh.
Ví dụ mình có 1000 trang cần in 2 mặt. Nhưng ở trang nào mình có dùng lệnh ngắt trang rồi thì trang đó chỉ in 1 mặt thôi ạh. Vị dụ trang 3 và trang 4 có sử dụng ngắt trang (trang 4 và trang 5 không sử dụng lệnh ngắt trang) thì trang 3 in một mặt, còn trang 4 và trang 5 in trên cùng 1 tờ ạh
Cảm ơn mọi người nhiều

bạn gởi file lên cho mình coi với

 

[Sonquang93]

Vụ này có người chỉ cách để chuyển từ in 1 mặt => 2 mặt => lại 1 mặt rồi. Tìm bài đó rồi tùy biến cho mình chứ code lệnh in cực lắm, phải có sẵn máy in 2 mặt và tốn mực, tốn giấy. Không mấy ai làm giúp cho bạn được.

mình cũng tìm rồi nhưng không thấy bạn ạh

Bài đã được tự động gộp: 17/7/20

bạn gởi file lên cho mình coi với

Bài đã được tự động gộp: 17/7/20

bạn gởi file lên cho mình coi với

bạn coi làm được không làm giúp mình với

 

[thnghiachau]

mình cũng tìm rồi nhưng không thấy bạn ạh

Bài đã được tự động gộp: 17/7/20

Bài đã được tự động gộp: 17/7/20

bạn coi làm được không làm giúp mình với

mình in bình thường mà bạn!!!

 

[Sonquang93]

mình in bình thường mà bạn!!!
View attachment 241473

ý mình muốn là làm cách nào để nó tự động biết chọn in 2 mặt và một mặt ạ. vì khi mình in 2 mặt cả thì sẽ bị dính hồ sơ này sang hồ sơ khác ạh

 

[thnghiachau]

ý mình muốn là làm cách nào để nó tự động biết chọn in 2 mặt và một mặt ạ. vì khi mình in 2 mặt cả thì sẽ bị dính hồ sơ này sang hồ sơ khác ạh

ah, cái này thì mình chịu... hic

 

[Maika8008]

mình cũng tìm rồi nhưng không thấy bạn ạh

bạn coi làm được không làm giúp mình với

Bạn dùng bài của tôi vậy: https://www.giaiphapexcel.com/diend...2-mặt-giấy-bằng-vba-excel.150395/#post-976010

Gợi ý để làm tiếp:
Bài của tôi ở trên là dùng vòng lặp duyệt qua các sheet để in nên không vấn đề gì khi gặp 1 mặt giấy lẻ.
Nhưng ở đây là bạn dùng ngắt trang cưỡng bức nên giải thuật dựa trên kiểu (type) ngắt trang:
- Ngắt trang in mặt định có hằng là -4105
- Ngắt trang in cưỡng bức có hằng là: -4135
Dùng lệnh SheetX.HPageBreaks.Item(Y).Type để lấy hằng số (X là chỉ số của sheet, Y là Index của dấu ngắt trang.