In Hàng Loạt Phiếu Lương Của Nhân Viên Trong 1 Lệnh In 7/2022

Đầu tiên các bạn tổ chức thiết kế 1 File hoàn chỉnh, gồm 1 sheet là "BangLuong", 1 sheet tên là "InPhieuLuong", tại sheet "InPhieuLuong" các bạn lập sẵn công thức dò tìm các chỉ tiêu theo mã, như hình bên dưới, và chúng ta chỉ có 2 việc để làm, một là lệnh tự động điền Mã NV vào ô D6, hai là lệnh in phiếu ra

B1. Các bạn mở chương trình soạn thảo code trong VBE

Nhấn tổ hợp phím Alt+F11 hoặc vào thẻ Developer-> Visual Basic (hoặc ViewCode) Nếu bạn nào chưa biết cách thì tham khảo bài viết này nhé "VBA CĂN BẢN BÀI 01"

B2. Mở cửa sổ soạn thảo code của Sheet BangLuong ra như hướng dẫn tại bảng sau

B3. Copy đoạn Code này và dán vào cửa sổ Code

Dim n as long n = Sheets("BangLuong").Range("D1000").End(xlUp).Row If Target.Row >= 9 And Target.Column = 2 And Activecell<>"" Then For i = 9 To n With Sheets("InPhieuLuong") .Range("C6") = Sheets("BangLuong").Range("B" & i) .PrintOut from:=1, To:=1, copies:=1 End With Next End If

B4: Tắt cửa sổ soạn thảo Code và lưu lại file dưới dạng .xlsm như sau

Vào File-> Save as, tại mục File Type, chọn định dạng .xlsm như hình dưới

Sau khi lưu xong, mở sheet "BangLuong" lên và thực hiện như sau:

1. Chọn máy in
2. Chọn chuột vào ô bất kỳ tại cột B và từ dòng số 9, và thấy máy in sẽ tự in

Bài viết tiếp theo mình sẽ hướng dẫn lệnh in số lượng phiếu theo kiểm soát của các bạn như in từ trang số mấy đến số mấy, số lượng bản in bao nhiêu tờ. Các bạn quan tâm lập trình VBA có thể tham khảo nhé "LẬP TRÌNH VBA TỪ CƠ BẢN ĐẾN NÂNG CAO"