Code VBA đánh số trang trong Header và Footer (1 người xem)

[baquang1984]

Nhờ bác Ba Tê giúp đỡ em đã sửa đúng theo yêu cầu chương trình của mình còn một điều mà em không thể làm được. Nên nhờ mọi người giúp đỡ ạ:
Khi Click chuột vào Button GPE để chọn các số thứ tự cần in ở cột N, ở Sheet(BIEU) để in hồ sơ (Vùng in là từ A1:J63) thì ở phần Header và Footer chỉ in đượcTrang 1 mà khi chọn số thứ tự cần in ở cột N thì có rất nhiều trang được in ra. Vây em muốn nhờ các anh chị giúp đỡ là khi chọn Số thứ tự cần in ở cột N và nhấn OK thì các trang in ra sẽ được đánh số thứ tự lần lượt trang 1, trang 2, trang 3, ....
Mong được anh chị của GPE giúp đỡ ạ
Em cảm ơn mọi người ạ!

 

[baquang1984]

Huuu vấn đề này có ai giúp em với không biết là em post nhầm hay sao mà không thấy có ai giải quyết giúp
Mong được mọi người giúp đỡ

 

[VetMini]

Huuu vấn đề này có ai giúp em với không biết là em post nhầm hay sao mà không thấy có ai giải quyết giúp
Mong được mọi người giúp đỡ

Người ta chỉ có thể cố gắng khi bạn bí một vấn đề nan giải nào đó. Còn bây giờ việc in ấn bày biện hoa lá đâu phải là việc gấp gáp hệ trọng gì thì bạn phải chịu khó đợi lúc người ta rảnh rỗi nhiều thì giờ chứ.

 

[baquang1984]

Vâng em biết là sự giúp đỡ của mọi người là rất cần để mình hoàn thiện một kỹ năng hay một sản phẩm nào đó, tuy nhiên ở đây em mới làm quen với VBA nên còn nhiều cái cẩn phải hỏi và cần được sự giúp đỡ của cộng đồng GPE. Còn đối với chương trình em hỏi ở trên là còn bước cuối cùng là hoàn thiện sản phẩm theo đúng ý muốn của mình nên em muốn nhờ mọi người vì Code VBA rất hữu dụng nhưng lại rất khó đối với người mới học. Cảm ơn đóng góp ý kiến của anh!

Người ta chỉ có thể cố gắng khi bạn bí một vấn đề nan giải nào đó. Còn bây giờ việc in ấn bày biện hoa lá đâu phải là việc gấp gáp hệ trọng gì thì bạn phải chịu khó đợi lúc người ta rảnh rỗi nhiều thì giờ chứ.

 

[baquang1984]

Bài của em không biết có vấn đề gì mà không được các thành viên giúp đỡ. Rất mong được các thành viên GPE giúp đỡ ạ
Thanks

 

[baquang1984]

Nhờ bác Ba Tê giúp đỡ em đã sửa đúng theo yêu cầu chương trình của mình còn một điều mà em không thể làm được. Nên nhờ mọi người giúp đỡ ạ:
Khi Click chuột vào Button GPE để chọn các số thứ tự cần in ở cột N, ở Sheet(BIEU) để in hồ sơ (Vùng in là từ A1:J63) thì ở phần Header và Footer chỉ in đượcTrang 1 mà khi chọn số thứ tự cần in ở cột N thì có rất nhiều trang được in ra. Vây em muốn nhờ các anh chị giúp đỡ là khi chọn Số thứ tự cần in ở cột N và nhấn OK thì các trang in ra sẽ được đánh số thứ tự lần lượt trang 1, trang 2, trang 3, ....
Mong được anh chị của GPE giúp đỡ ạ
Em cảm ơn mọi người ạ!

Em cảm ơn anh Ba Tê đã góp ý không thấy có ai phản hồi nên em không biết thế nào để giải thích có sự đóng góp của anh thì em mới biết.
Theo quy định một cuốn sổ địa chính gồm 200 trang anh có thể Code giúp em đánh số trang giới hạn mỗi lần in là 200 trang được không ạ
- VD khi em đánh số 200 vào ô cell [K6] là "Tổng số trang cần in" thì biết được là in từ STT 1 đến STT n
STT1 + STT2 + STT3 + ....+ STTn <= 200 và khi chọn IN thì đánh số trang là Trang 1, Trang 2, Trang 3, ......., Trang n cho từng trang in ở Header và Footer
- Còn khi ô cell [K6] không có giá trị Khi ta chọn Print từ STT 1 ----> STT n thì đánh số trang Trang 1, Trang 2, Trang 3, ......., Trang n cho từng trang in ở Header và Footer
+ VD: Chọn Print từ STT1 ---> STT 2, STT1 có 3 trang, STT2 có 6 trang tổng có 9 trang, thì đánh số thứ tự Trang 1, Trang 2, Trang 3, ......., Trang 9 cho từng trang in ở Header và Footer
+ Chọn Print khác từ STT5 ----> STT9, STT5 có 1 trang, STT6 có 3 trang, STT7 có 2 trang, STT8 có 8 trang, STT9 có 3 trang tổng có 17 trang, thì đánh số thứ tự Trang 1, Trang 2, Trang 3, ......., Trang 17 cho từng trang in ở Header và Footer
Em giải thích như vậy chắc là oki rồi
Mong được anh và mọi người của diễn đang GPE giúp đỡ
Em cảm ơn mọi người nhiều

 

[Ba Tê]

Em cảm ơn anh Ba Tê đã góp ý không thấy có ai phản hồi nên em không biết thế nào để giải thích có sự đóng góp của anh thì em mới biết.
Theo quy định một cuốn sổ địa chính gồm 200 trang anh có thể Code giúp em đánh số trang giới hạn mỗi lần in là 200 trang được không ạ
- VD khi em đánh số 200 vào ô cell [K6] là "Tổng số trang cần in" thì biết được là in từ STT 1 đến STT n
STT1 + STT2 + STT3 + ....+ STTn <= 200 và khi chọn IN thì đánh số trang là Trang 1, Trang 2, Trang 3, ......., Trang n cho từng trang in ở Header và Footer
- Còn khi ô cell [K6] không có giá trị Khi ta chọn Print từ STT 1 ----> STT n thì đánh số trang Trang 1, Trang 2, Trang 3, ......., Trang n cho từng trang in ở Header và Footer
+ VD: Chọn Print từ STT1 ---> STT 2, STT1 có 3 trang, STT2 có 6 trang tổng có 9 trang, thì đánh số thứ tự Trang 1, Trang 2, Trang 3, ......., Trang 9 cho từng trang in ở Header và Footer
+ Chọn Print khác từ STT5 ----> STT9, STT5 có 1 trang, STT6 có 3 trang, STT7 có 2 trang, STT8 có 8 trang, STT9 có 3 trang tổng có 17 trang, thì đánh số thứ tự Trang 1, Trang 2, Trang 3, ......., Trang 17 cho từng trang in ở Header và Footer
Em giải thích như vậy chắc là oki rồi
Mong được anh và mọi người của diễn đang GPE giúp đỡ
Em cảm ơn mọi người nhiều

Giờ thì, chắc là cuối cùng rồi.
1/ Thêm cho bạn 1 cột Q như mục lục tìm số trang của từng STT. Ví dụ STT 10 cột Q là 27, STT 11 cột Q là 33. Nghĩa là nếu tính từ đầu STT 10 sẽ bắt đầu từ trang 27 - 32, STT 11 bắt đầu từ trang 33, tùy bạn vận dụng khi in.
2/ Số trang bắt đầu trong UForm là số trang bắt đầu của một lần in mà bạn muốn ghi, code sẽ ghi liên tục cho đến STT mà số trang sẽ > 200 thì ngừng không in nữa.
3/ Bạn muốn biết đã in đến STT mấy rồi thì xem ô K2, đến trang mấy rồi thì xem ô A1 hoặc .... xem trang giấy cuối cùng bạn lấy ra từ máy in.

 

[baquang1984]

Em cảm ơn anh Ba Tê nhé đúng ý em rồi hiiii. Chúc bác sữ khỏe nhé, mong rằng trong quá trình nghiên cứu ứng dụng Code VBA vào ứng dụng sản xuất nếu có gì bác chỉ bảo giúp em nhé
Thanks

 

[baquang1984]

Anh Ba Tê cho em hỏi chút là đối với chương trình ở trên của anh viết đó khi mà em muốn xuất trang in ra thành từng file PDF sau đó em dùng chương trình nối các file đó lại để in hai mặt có được không ạ, Bời vì dự án họ yêu cầu là in hai mắt còn đối với chương trình thì chỉ in được một mặt anh ạ
Cảm ơn anh nhiều!

 

[Ba Tê]

Giờ thì, chắc là cuối cùng rồi.
...............................................................................

Bạn đừng gọi đích danh tôi nữa, cứ gởi bài hỏi bình thường có thể có người khác giúp bạn.
Giúp bạn những điều khó khăn cơ bản của công việc thôi, còn những râu ria, trang trí, màu mè, in ấn .... theo ý mỗi người, mỗi "cấp trên" thì bạn phải cố mà làm chứ.
Nay thêm một chút, mốt thêm một chút.... ai cũng phải oải thôi.

 

[baquang1984]

Vâng em cảm ơn anh, đúng là làm phiền mỗi lúc một chút thì cũng là vấn đề làm cho các bác và mọi người tốt về VBA cũng là oải thật, nhưng em lại ko có kiến thức về VBA nên đành phải làm phiền các bác vậy. Lời cuối là rất mong được bác và mọi người giúp đỡ để em có thể cải thiện được công việc của mình tốt hơn ạ
Cảm ơn anh và mọi người của diễn đàn GPE!