Tạo trình quản lý báo cáo tùy chỉnh
Bạn có thể tạo Báo cáo in tùy chỉnh bằng cách thêm macro VBA vào trang tính Mô-đun thông thường (macro có thể được tải xuống từ www.exceltip.com).
Cấu trúc của Báo cáo In tùy chỉnh:
{trống} 2. Cột A: Cột này chứa các số từ 1 đến 3: in từ trang tính, in theo tên phạm vi hoặc in từ Chế độ xem tùy chỉnh (được khuyến nghị).
-
Cột B: Nhập tên trang tính, Tên phạm vi hoặc Tên Chế độ xem Tùy chỉnh.
-
Cột C: Đánh số trang sẽ in ở chân trang.
Macro sẽ in từ một trang tính và tự động thêm thông tin cần thiết vào chân trang, bao gồm số trang, tên sổ làm việc, địa chỉ đường dẫn và tên trang tính, cũng như ngày và giờ in.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer Dim ActiveSh As Worksheet, ChooseShNameView As String Dim ShNameView As String, ô As Range Application.ScreenUpdating = False Đặt ActiveSh = ActiveSheet Range (“a2”). Chọn Cho Mỗi ô trong Phạm vi (Range (“a2”), Range (“a2”). End (xlDown))
Chọn Case cell.Value Case 1 Sheets (ShNameView) .Select Case 2 Application.GoTo Reference: = ShNameView Case 3 ActiveWorkbook.CustomViews (ShNameView) .Hiển thị Kết thúc Chọn Với ActiveSheet.PageSetup. CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName & “” & “& A & T & D”
End With ActiveWindow.SelectedSheets.PrintOut Copies: = 1 Next i ActiveSh.Select Application.ScreenUpdating = True End Sub {trống} 5. Vòng lặp For Each trong macro gây ra bản in riêng cho từng ô trong cột A bắt đầu từ A2.
-
Trong vòng lặp, vùng in được chọn bằng kỹ thuật Chọn trường hợp.
-
Thông tin được in ở phía bên trái của footer: & 08 = 8 điểm phông chữ, & D = Ngày, & T = Thời gian.
-
Để chạy macro từ trang tính, hãy nhấn Alt + F8, chọn macro và nhấp vào Chạy.
HOẶC Thêm một nút vào trang tính và đính kèm macro vào đó.
-
Lưu ý: Sử dụng kỹ thuật này để thêm số lượng báo cáo không giới hạn.