Lớp học GPE tháng 10 - TPHCM: Conditional Formatting và Data Validation (tối 4, 6/10) | Excel cơ bản (tối 9, 11, 13/10) |
Thuần thục các hàm dò tìm (tối 10, 12/10) | Tất tần tật về PivotTable (tối 16, 18, 20/10) |
Tất tần tật về Filter và Advanced Filter (tối 23, 25/10) | Name động và biểu đồ (tối 24, 26, 28/10)

Đăng ký học Khởi đầu cùng Google Spreadsheet - 2 chủ nhật 1 và 8/10 - TPHCM

Đăng ký học Xây dựng ứng dụng Form bằng VBA - 2 chủ nhật 15 và 22/10 - TPHCM

Trong EXCEL làm cách nào in 2 vùng chọn khác nhau trên cùng 1 trang???

Thảo luận trong 'Excel và Kỹ Thuật' bắt đầu bởi cookdao, 29 Tháng ba 2007.

  1. cookdao

    cookdao Thành viên mới

    Trong sheet 1 của Excel, tôi set print area A1:A15 đến C1:C15 và FE1:FE15 đến FH1:FH15. Nhưng print preview thì thấy in thành 2 trang, trang 1 từ A1:A15 đến C1:C15, trang 2 từ FE1:FE15 đến FH1:FH15. Tôi muốn in A1:A15 đến C1:C15 và FE1:FE15 đến FH1:FH15 trên cùng 1 trang có được không? tôi có coi qua Page setup thấy ko có lệnh nào cho tác vụ tôi mong muốn, vậy tôi phải làm sao nếu muốn in như vậy?
    cám ơn trước nha.
     
  2. nvson

    nvson Geotechnics

    Đây là hướng giải quyết của mình:
    Chỉ Show những Column được in, còn các Column không được in sẽ bị Hide.
    Sau đó tiến hành in bình thường.
    - B1: Chọn tất cả các ô mà bạn muốn in (A1:A15 đến C1:C15 và FE1:FE15 đến FH1:FH15)
    - B2: Đặt tên cho vùng này một cái tên nào đó (chẳng hạn là VungIn --> Insert/Name/Define)
    B3: Nhấn Alt+F11 để vào VBA, rồi Insert/ Module
    Thêm đoạn code sau:
    Mã:
    Sub ShowOnly_PrintRange()
        Cells.Select
        Selection.EntireColumn.Hidden = True
        Range("VungIn").Select
        Selection.EntireColumn.Hidden = False
        Range("VungIn").Select
        Selection.Cells(1, 1).Select
        Range("VungIn").Select
        With ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
            .PrintArea = "$" & Range("VungIn").Row & ":$" & Range("VungIn").Rows.Count + Range("VungIn").Row - 1
        End With
    End Sub
    
    
    B4: Chạy Macro trên và bắt đầu in
    .....
     

Chia sẻ trang này