In ấn hồ sơ nhanh chuẩn bằng VBA trong xây dựng/ Handle fast printing with VBA in construction

Vấn đề in ấn trong hồ sơ quản lý chất lượng.
Việc in ấn là việc cuối cùng để xuất ra hồ sơ, nhưng việc in hồ sơ thế nào để tiện cho công tác sắp xếp, tiện cho công tác xuất hồ sơ những lần tiếp theo, nhân bản lại là nỗi khiếp sợ của nhiều kỹ sư.
Đối với những người không biết về VBA in ấn trong excel họ thường sử dụng các phương thức in ấn sau:
- Sử dụng mailling (trộn thư trong word) list được lập sẵn trong excel và trộn vào các trường bên word sau đó chạy. Cách này có thể hiểu quả đối với các loại văn bản không có khối lượng tính toán kèm theo trong văn bản, các tờ văn bản cùng chiều (toàn bộ in theo chiều dọc, hoặc toàn bộ in theo chiều ngang) và việc sắp xếp hồ sơ mệt mỏi dễ nhầm lẫn vô cùng (anh em nào từng sắp xếp hồ sơ kiểu này chắc rõ nhất). Còn đối với các biên bản có xử lý và kèm theo số liệu trong đó (ví dụ như cao độ, kích thước hình học) hoặc hồ sơ sẽ có tờ in khổ dọc, có tờ in khổ ngang thì việc sử dụng mailling trong word không còn hiệu quả (gần như không làm nổi).
- Hôm nay mình hướng dẫn các bạn xử lý số liệu và in ấn hồ sơ chất lượng bằng VBA một cách nhanh chóng, và đặc biệt không phải sắp xếp lại hồ sơ, cũng như xuất hồ sơ cho những gần tiếp theo.
File mình để lại phia dưới các bạn tải về tham khảo.

http://123link.pro/Wp53

- Cách thực hiện như sau:
+ Xem số lượng lớp đắp:
                                                                         Bảng data

ở đây của mình có 25 lớp đắt cho đoạn Km76 + 000 -:- Km76+280
+ Bây giờ sẽ đi tạo code in ấn nhanh cho 25 lớp đắp này.
      * Trước tiên việc in ấn sẽ lặp đi lặp lại ( vẫn 3 biên bản và 2 phiếu yêu cầu chẳng hạn) chỉ khác nhau ở chỗ lớp đắp số bao nhiêu, ngày tháng thi công, nghiệm thu, khối lượng. Do đó ta sẽ nghĩ đến vòng for cho nó chạy từ 1 đến 25 , các số liệu ngày tháng, khối lượng....trong biên bản sẽ sử dụng các cú pháp lọc theo điều kiện tham chiếu từ 1 đến 25 từ bảng data tổng hợp ( sử dụng vlookup, hlookup, index....vv). Nhìn vào bảng trên ta thấy lớp 16 có KL là 1299,12 (m3), lớp 24 có KL là 1358,41.....vv
      * Sau đó tạo ra các nút lệnh từ thanh developer

  Số để tham chiếu để lọc dữ liệu vào văn bản ở đây nằm ở ô "AE4", giá trị này chạy từ 1 đến 25
nút mũi tên lên xuống được tạo ra để chúng ta tiến hành kích thử xem số liệu trong văn bản có thay đổi không, cách gán nút lệnh này kích chuột phải và nút chọn "Format control" sẽ hiện ra bảng sau

sau đó tiền hành nhập số liệu vào.
 Bây giờ tiến hành gán viết code cho modun có tên sub là "inhangmuc" theo vòng for như dưới đây. Sau đó gán nút "Button" này cho sub "inhangmuc" vừa  vừa tạo ra .

Kích chuột phải vào "Button" chọn assign macro hiện lên bảng phía dưới sau đó chọn vào "inhangmuc"  nhấn "ok" và thử test.