Hỏi cách viết code in tự động theo bộ phận? (2 người xem)

[Tony Jaa]

Trong một danh sách có các cột: [STT] [HỌ VÀ TÊN] [BỘ PHẬN] [CHỨC DANH] [...] V.v...
Trong danh sách này có nhiều dòng, và tại cột bộ phận có nhiều bộ phận khác nhau.
Khi bấm lệnh in, đương nhiên máy tính sẽ in ra nguyên cả bảng danh sách này.
Bây giờ nhờ các bác giúp mình thiết lập code VBA sao cho khi mình bấm nút in, thì lệnh in sẽ thực hiện in riêng theo từng bộ phận (mỗi bộ phận in riêng 1 tờ, và mỗi tờ đều thể hiện đầy đủ những dòng tiêu đề của bảng tính).

Ghi chú: Tương tự như kiểu ta filter theo từng bộ phận, rồi sau đó bấm lệnh in.
Nhưng bởi vì danh sách này luôn thay đổi, lúc thì nhiều bộ phận, lúc thì ít bộ phận, lúc nhiều dòng, lúc ít dòng. Vì vậy mình chưa biết cách làm code để tự động in trong bất cứ trường hợp nào.

Xem file đính kèm.

Xin cảm ơn!

 

[Hai Lúa Miền Tây]

Trong một danh sách có các cột: [STT] [HỌ VÀ TÊN] [BỘ PHẬN] [CHỨC DANH] [...] V.v...
Trong danh sách này có nhiều dòng, và tại cột bộ phận có nhiều bộ phận khác nhau.
Khi bấm lệnh in, đương nhiên máy tính sẽ in ra nguyên cả bảng danh sách này.
Bây giờ nhờ các bác giúp mình thiết lập code VBA sao cho khi mình bấm nút in, thì lệnh in sẽ thực hiện in riêng theo từng bộ phận (mỗi bộ phận in riêng 1 tờ, và mỗi tờ đều thể hiện đầy đủ những dòng tiêu đề của bảng tính).

Ghi chú: Tương tự như kiểu ta filter theo từng bộ phận, rồi sau đó bấm lệnh in.
Nhưng bởi vì danh sách này luôn thay đổi, lúc thì nhiều bộ phận, lúc thì ít bộ phận, lúc nhiều dòng, lúc ít dòng. Vì vậy mình chưa biết cách làm code để tự động in trong bất cứ trường hợp nào.

Xem file đính kèm.

Xin cảm ơn!

Mình thấy cái này bạn dùng Auto filter cũng được, nếu bạn cần bộ phận nào thì lọc lấy bộ phận ấy ra in thôi, đâu cần dùng code.
Nếu như dùng code bạn chịu cách tách từng bộ phận sang 1 sheet mới thì mình sẽ giúp.
Thân

 

[Tony Jaa]

Mình thấy cái này bạn dùng Auto filter cũng được, nếu bạn cần bộ phận nào thì lọc lấy bộ phận ấy ra in thôi, đâu cần dùng code.
Nếu như dùng code bạn chịu cách tách từng bộ phận sang 1 sheet mới thì mình sẽ giúp.
Thân

Mình chỉ muốn in trên sheet hiện tại thôi, có thể thực hiện theo 2 hướng:

1. Tạo Validation List, sau đó chọn in theo từng bộ phận (lọc filter) mỗi lần chọn thì danh sách sẽ lọc riêng ra một bộ phận, bộ phận khác sẽ ẩn đi, sau đó mình bấn nút in hoặc Ctrl + P. Khi ta không chọn bộ phận nào trong list này, mà bấm lệnh in (hoặc Ctrl + P) có nghĩa là in tất cả danh sách hiện hành.
   
2. Tạo một lệnh in, khi bấm lệnh này sẽ hỏi: Bạn muốn in theo từ bộ phận hay in gộp tất cả danh sách. Khi chọn in theo bộ phận, thì lệnh này tự in tách từng bộ phận ra mỗi tờ riêng biệt. Khi chọn in gộp tất cả danh sách thì nó sẽ không tách riêng mà in gộp chung tất cả vào một danh sách.

Ý tưởng thì như vậy, nhưng mình chưa làm được, các bạn cùng dúp mình nhé!

Thân ái!

 

[MinhNguyệt]

Mình chỉ muốn in trên sheet hiện tại thôi, có thể thực hiện theo 2 hướng:

1. Tạo Validation List, sau đó chọn in theo từng bộ phận (lọc filter) mỗi lần chọn thì danh sách sẽ lọc riêng ra một bộ phận, bộ phận khác sẽ ẩn đi, sau đó mình bấn nút in hoặc Ctrl + P. Khi ta không chọn bộ phận nào trong list này, mà bấm lệnh in (hoặc Ctrl + P) có nghĩa là in tất cả danh sách hiện hành.
2. Tạo một lệnh in, khi bấm lệnh này sẽ hỏi: Bạn muốn in theo từ bộ phận hay in gộp tất cả danh sách. Khi chọn in theo bộ phận, thì lệnh này tự in tách từng bộ phận ra mỗi tờ riêng biệt. Khi chọn in gộp tất cả danh sách thì nó sẽ không tách riêng mà in gộp chung tất cả vào một danh sách.

Ý tưởng thì như vậy, nhưng mình chưa làm được, các bạn cùng dúp mình nhé!

Thân ái!

Xem File đính kèm, có thể sửa theo AF cũng được

 

[TrungChinhs]

Bạn thử File này xem có đúng ý bạn không nha ?
Muốn in bộ phận nào bạn kích đúp chuột vào tên bộ phận đó. Muốn in tất cả bạn kích đúp chuột vào bất kỳ ô nào trên đầu bảng tính (Từ dòng 1 đến dòng 8).
Chúc vui !

 

[nhituyet]

Bạn thử File này xem có đúng ý bạn không nha ?
Muốn in bộ phận nào bạn kích đúp chuột vào tên bộ phận đó. Muốn in tất cả bạn kích đúp chuột vào bất kỳ ô nào trên đầu bảng tính (Từ dòng 1 đến dòng 8).
Chúc vui !

Bác Trungchinhs oi, Bác đã làm ra file hoàn tất rồi thì bác vui lòng viết chỉ dẫn ra cho người cùng học luôn đi.
Thanks!!!