Cách sử dụng Excel VBA để in

Hàng triệu chủ doanh nghiệp nhỏ và doanh nhân trên toàn thế giới sử dụng Microsoft Excel để trợ giúp các công việc kế toán, dự báo và kiểm kê chung. Với các công cụ tích hợp của Excel, việc gửi bảng tính hoặc sổ làm việc cho ai đó trong email dưới dạng tệp đính kèm là tương đối đơn giản. Tuy nhiên, có nhiều lần không có gì vượt qua được một bản sao cứng của dữ liệu bảng tính. Tất nhiên, bạn có thể sử dụng tùy chọn menu của File File | Print trên thanh ruy băng để tạo các phiên bản in của bảng tính của bạn. Tuy nhiên, bằng cách sử dụng Visual Basic cho Ứng dụng hoặc VBA, bạn cũng có thể tạo các macro hoặc nút lệnh để thực hiện các tác vụ in khác nhau trong Excel nhanh hơn và hiệu quả hơn.

Kích hoạt tab Nhà phát triển

1.

Khởi chạy Microsoft Excel và mở sổ làm việc hoặc mẫu mà bạn muốn lập trình các chức năng in VBA. Nhấp vào Tập tin trên mạng trên dải băng Excel, sau đó chọn Tùy chọn.

2.

Xác định vị trí và nhấp vào tiêu đề của Tùy chỉnh Ribbon Ribbon trong khung bên trái của cửa sổ "Tùy chọn Excel". Nhấp vào hộp kiểm bên cạnh Nhà phát triển trực tuyến, trong phần Tab chính trong nhãn "Tùy chỉnh ruy băng".

3.

Nhấp vào nút của OK OK để kích hoạt tab "Nhà phát triển" trên ruy-băng và đóng cửa sổ "Tùy chọn Excel". Sau khi bạn đóng cửa sổ Tùy chọn, Excel sẽ tự động hiển thị tab nhà phát triển trên thanh ruy băng.

Tạo nút in bằng VBA

1.

Nhấp vào tab Nhà phát triển trực tuyến trên băng. Nhấp vào mũi tên thả xuống của biểu tượng Chèn Chèn trong phần "Điều khiển" của tab "Nhà phát triển". Nhấp vào biểu tượng Nút điều khiển trên nút "Bên dưới" Điều khiển biểu mẫu.

2.

Bấm vào ô trong bảng tính nơi bạn muốn đặt nút in. Sau khi bạn nhấp và chọn một ô, cửa sổ "Gán Macro" sẽ tự động xuất hiện.

3.

Nhập vào Bản in PrintCienSheet 'hoặc một cái gì đó tương tự trong trường Tên Macro Macro. Không sử dụng khoảng trắng trong tên macro. Nhấp vào nút mới. Cửa sổ soạn thảo Visual Basic for Application xuất hiện và hiển thị một cửa sổ mã mới.

4.

Đặt con trỏ chuột vào không gian dòng giữa các giá trị của Sub SubCienSheetSheet () và cuối End. Gõ lệnh sau:

ActiveSheet.PrintOut

5.

Nhấp vào biểu tượng đĩa mềm trên thanh công cụ biên tập VBA để lưu mã. Đóng cửa sổ soạn thảo VBA.

6.

Nhấp chuột phải vào nút lệnh mới và tô sáng văn bản Nút Nút 1 mặc định. Thay đổi văn bản nhãn nút thành In nhanh In hoặc tên mô tả khác.

7.

Nhấp vào nút lệnh mới. Excel in bảng tính đang hoạt động trên máy in Windows mặc định mà không hiển thị hộp thoại Bình thường In In.

Lời khuyên

• Bạn có thể sử dụng cùng một phương pháp để tạo nhiều chức năng in trong Excel bằng VBA. Các bước để tạo nút chức năng in là như nhau; chỉ cần cú pháp lệnh khác nhau.
• Để in tất cả các trang tính trong sổ làm việc hiện tại mà không hiển thị cửa sổ Đối thoại in, hãy thay thế lệnh của Active ActiveSheet.PrintOut, bằng các bảng tính.PrintOut hay hoặc
• Bạn có thể tạo một nút in nhanh chỉ cho các ô bạn chọn bằng chuột bằng cách sử dụng lệnh Lựa chọn.PrintOut tựa trong mã VBA.
• Nếu bạn muốn in tới một máy in cụ thể khác với mặc định của Windows, hãy sử dụng mã sau cho nút lệnh trong cửa sổ mã VBA:
• Sub QuickChangePrinter ()
• Dim sNewPrinter As String
• sNewPrinter = ActivePrinter
• ActivePrinter = "Nhập tên Windows của máy in tại đây"
• Ứng dụng.PrintOut Tên tệp: = ""
• ActivePrinter = sNewPrinter
• Kết thúc phụ