Lọc cột cần in như thế nào???

[minhcong.tckt]

Em đang làm việc với bảng tính excel gồm 10 cột:
Cột 1: STT
Cột 2: Họ và tên
Cột 3: Tháng 1
Côt 4: Tháng 3
Côt 5: Tổng tháng
Cột ......
Cột 9: Bảo hiểm
Cột 10 Ghi chú

Giờ em muốn trang in của em chỉ gồm các cột như: Cột 1,2,5,9
(em ko muốn dùng chức năng ẩn (hide) bình thường các cột, mà dùng cách gì đó để linh hoạt hơn trong việc in ấn)
Chân thành cảm ơn các anh chị!!!

 

[nghiaphuc]

Em đang làm việc với bảng tính excel gồm 10 cột:
Cột 1: STT
Cột 2: Họ và tên
Cột 3: Tháng 1
Côt 4: Tháng 3
Côt 5: Tổng tháng
Cột ......
Cột 9: Bảo hiểm
Cột 10 Ghi chú

Giờ em muốn trang in của em chỉ gồm các cột như: Cột 1,2,5,9
(em ko muốn dùng chức năng ẩn (hide) bình thường các cột, mà dùng cách gì đó để linh hoạt hơn trong việc in ấn)
Chân thành cảm ơn các anh chị!!!

Nếu không muốn sử dụng chức năng ẩn cột thì có lẽ bạn phải tạo 1 biểu mẫu khác và link dữ liệu qua rồi chứ việc thiết lập Print area trong trường hợp này là bó tay (sẽ in ra mỗi cột trên 1 trang).
Hoặc có một cách khác: Sử dụng VBA thay vì bạn ẩn/hiện cột một cách thủ công, nói chung sẽ là như sau:
- Ẩn các cột không muốn in ra.
- In dữ liệu.
- Hiện lại các cột đã ẩn.
Code như sau:

Sub InDL()
    With Sheet1
        .[C:D,F:H,J:J].EntireColumn.Hidden = True
        .PrintOut preview:=True
        .[A:J].EntireColumn.Hidden = False
    End With
End Sub

 

[minhcong.tckt]

Nếu không muốn sử dụng chức năng ẩn cột thì có lẽ bạn phải tạo 1 biểu mẫu khác và link dữ liệu qua rồi chứ việc thiết lập Print area trong trường hợp này là bó tay (sẽ in ra mỗi cột trên 1 trang).
Hoặc có một cách khác: Sử dụng VBA thay vì bạn ẩn/hiện cột một cách thủ công, nói chung sẽ là như sau:
- Ẩn các cột không muốn in ra.
- In dữ liệu.
- Hiện lại các cột đã ẩn.
Code như sau:

Sub InDL()
    With Sheet1
        .[C:D,F:H,J:J].EntireColumn.Hidden = True
        .PrintOut preview:=True
        .[A:J].EntireColumn.Hidden = False
    End With
End Sub

Anh ơi, mã code của anh rất hay, nhưng cho em hỏi thêm chút là: sao mình ấn vào nút in dư liệu thì máy in của mình tự động in luôn, dẫn đến tình trạng là in cả nhưng trang khác nữa (nhưng trang có chữ khác)
Làm cách nào chỉ in cái trang mình cần (ví dụ trang 1 và 2 chẳng hạn)

 

[nghiaphuc]

Anh ơi, mã code của anh rất hay, nhưng cho em hỏi thêm chút là: sao mình ấn vào nút in dư liệu thì máy in của mình tự động in luôn, dẫn đến tình trạng là in cả nhưng trang khác nữa (nhưng trang có chữ khác)
Làm cách nào chỉ in cái trang mình cần (ví dụ trang 1 và 2 chẳng hạn)

Bạn nghiên cứu câu lệnh này và tùy biến cho phù hợp với thực tế nhé:

ActiveSheet.PrintOut From:=1, To:=2, Copies:=3, Preview:=True, Collate:=True

Trong câu lệnh trên:
- From: Trang bắt đầu
- To: Trang kết thúc. Nếu in toàn bộ trang tính thì bỏ qua các tham số From và To (xóa nó đi).
- Copies: Số bản in, mặc định là 1. Nếu chỉ in 1 bản thì bỏ qua tham số này.
- Preview: Tùy chọn xem trước khi in, mặc định là False. Nếu in luôn mà không xem trước thì bỏ qua tham số này.
- Collate: Chỉ sử dụng khi Copies > 1, mặc định là True. Tham số này cho phép ta thiết lập in toàn bộ 1 bản rồi mới in bản thứ 2, bản thứ 3,..., bản thứ n hay in n bản trang 1 rồi đến n bản trang 2, n bản trang 3,...