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

In trang chẵn, lẻ trong Excel

Thảo luận trong 'Định dạng, trình bày, in ấn bảng tính' bắt đầu bởi phamduylong, 24 Tháng ba 2008.

  1. phamduylong

    phamduylong Thành viên danh dự

    Trong Word cho phép chọn in trang chẳn, lẻ. Nhưng Excel không hỗ trợ cách in này. Nhiều bạn đã hỏi và có nhiều bài viết về vấn đề này. Từ một code chọn trang in, tôi phát triển thêm để có thể:
    - Báo tổng số trang trong sheet.
    - Chọn in tất cả ALL
    - Chọn in trang chẳn CHAN
    - Chọn in trang lẻ LE
    - In từ trang đến trang
    Đây là tập tin XLA nên bạn không thấy nó trên màn hình. Muốn in bấm Ctrl+Shift+P

    Mã:
    Sub PrintPage()
    '
    ' PrintPage Macro
    ' Macro recorded 24/03/2008 by Pham Duy Long
    '
    ' Keyboard Shortcut: Ctrl+Shift+P
    '
    Dim n As Integer, i As Integer
    n = ExecuteExcel4Macro("Get.Document(50)")
    tb = "Sheet [" & ActiveSheet.Name & "] co tat ca " & n & " trang" & _
    Chr(13) & "Chon trang in:" & Chr(13) & _
    " ALL : in tat ca   CHAN : in trang chan   LE : in trang le" & Chr(13) & _
    " 1-" & n & " : in tu trang 1 den trang " & n
    sotrang = Trim(UCase(Application.InputBox(tb, "In trang", , , , , , 2)))
    Select Case sotrang
    Case "FALSE", ""
      Exit Sub
    Case "ALL"
      ActiveWindow.SelectedSheets.PrintOut
    Case "CHAN"
      For i = 2 To n Step 2
        ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
      Next
    Case "LE"
      For i = 1 To n Step 2
        ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
      Next
    Case Else
      dau = Val(sotrang)
      cuoi = Val(Mid(sotrang, InStr(sotrang, "-") + 1))
      If cuoi = 0 Then cuoi = dau
      If dau * cuoi = 0 Or cuoi < dau Then
        MsgBox "Nhap so trang " & sotrang & " sai !"
      Else
        If dau > n Then dau = n
        If cuoi > n Then cuoi = n
        ActiveWindow.SelectedSheets.PrintOut From:=dau, To:=cuoi
      End If
    End Select
    End Sub
    
     

    Các file đính kèm:

  2. tuanminhtdhbthn

    tuanminhtdhbthn Thành viên chính thức

    Bác Duy Long ơi, hỏi ngoài lề một chút là in trang chẵn lẻ trong word thì làm như thế nào. Em muốn in 2 mặt bằng cách in trang lẻ trước và chẵn sau nhưng phải gõ các số lẻ 1,3,5,7...như thế có đến tết Tây. Bác chỉ giúp em với, đa tạ nhiều
     
  3. tklshb

    tklshb 阮.峻.謙

    Bạn ra lệnh in (hoặc Ctr+P), khi hiện lên bảng thông báo, tại mục Print (gần góc dưới bên trái)bạn chọn Odd pages hoặc Even pages là được.
     
  4. ALOAN

    ALOAN Thành viên chính thức

    Mọi người cho em hỏi chút.
    Nếu muốn in 2 trang trên 1 giấy thì đoạn code nào có thể làm được điều này!
     
  5. phamduylong

    phamduylong Thành viên danh dự

    Có phải em download Frint Select.zip không? Nếu đúng vậy thì:
    1. Giải nén.
    2. Cấu hình cho phép macro hoạt động: Tools > Macro > Security > chọn Medium.
    3. Chạy Frint Select.xla > chọn Enable Macros.
    4. Chọn trang bản tính cần in > nhận tổ hợp Ctrl+Shìft+P > nhập yêu cầu in.
     
  6. kittulip

    kittulip Thành viên mới

    bác ơi. Em còn gà hơn nữa :(
    Em nhấn Ctrl+Shift+P nó ko ra, mà nó lại chạy lên cái ô chỉnh size font.
    Bác chỉ giúp em với.
     
  7. phamduylong

    phamduylong Thành viên danh dự

    Hổ trợ in trong Excel

    Print Select cải tiến cho phép có nhiều lựa chọn trang in hơn. Có thể in tất cả các trang, in trang chẳn, trang lẻ hoặc in một số trang không liên tục, liên tục.
    Để khai báo in, bạn nhập vào textbox:
    - In tất cả các trang : all
    - In trang chẳn : chan
    - In trang lẻ : le
    - In một số trang không liên tục, liên tục : nhập số trang in, số trang cách nhau dấy phẩy ( , ). Nếu số trang liên tục thì nhập trang đầu-trang cuối (nối bằng dấu gạch -). Ví dụ:
    2 : in trang 2
    2, 10: in trang 2, trang 10
    2, 5-10: in trang 2, trang 5 đến trang 10
    2, 5-7,10: in trang 2, trang 5 đến trang 7, trang 10

    Khi chạy, Print Select tạo menu Print trên thanh menu. Bạn có thể gọi lệnh in từ menu Print > Print Select hoặc tổ hợp Ctrl+Shìt+P
    Tải Print Select tại bài Bài 1
     
  8. adult

    adult Thành viên hoạt động

    àh, Mr.Long ơi, đã vậy thì tiện thể Bác thêm vào luôn 1 tính năng nữa là in all worksheet nhá. Như vậy thì mọi người đỡ phải group lại trước khi in toàn bộ các sheet (mặc dù thao tác group này chưa đến 2s) .
    Thanks sự đóng góp của bác
     
  9. phamduylong

    phamduylong Thành viên danh dự

    Nhiều lựa chọn phải chuyển giao diện qua Form chứ Input Box không đáp ứng được. Sẽ phát triển thêm phần này.
    Tải bình thường ! Bạn tải tại bài 1
     
  10. haonlh

    haonlh Thành viên tích cực

    Gửi kittulip
    "bác ơi. Em còn gà hơn nữa :(
    "Em nhấn Ctrl+Shift+P nó ko ra

    Vì bạn chưa cài đặt xong. C - S - P đúng là phím nóng của Excel để đặt cỡ chữ.
    Nếu cài đặt tốt thì nó hiện
    [​IMG]
    Thử xem.
     
  11. hong gam

    hong gam Thành viên thường trực

    Bạn làm theo các bước sau:
    1. Mở file cần in
    2. vào tool/macro/security, Trong security level chọn medium.
    3. Mở tập tin Print Select mà bạn tải về, chọn Enable macro.
    4. Sau đó mới nhấn Ctrl+Shift+P và chọ chan hoặc le thì được thôi.
     
  12. aThuan

    aThuan Thành viên mới


    Có sự khác nhau giữa việc in nhiều sheet cùng 1 lúc và in hết sheet này đến sheet khác-\\/.
    Bạn thích loại nào????@!##@!##@!##
     
  13. adult

    adult Thành viên hoạt động

    Khác nhau gì bác? Đường nào thì máy in cũng chỉ có 1 chỗ ra, không lẻ in nhiều sheet cùng lúc thì ra được 10 tờ 1 lỗ hay sao?
    Bác hỏi câu này đánh đố nhau quá!!!
     
  14. thuyyeu99

    thuyyeu99 Thành viên tiêu biểu

    Cái Add in này hay quá. Nếu được thêm mục lựa chọn máy in và mục number or copies thì tuyệt quá.

    Cám ơn thầy PhạmDuyLong /-*+/
     
    Chỉnh sửa lần cuối bởi điều hành viên: 14 Tháng ba 2009
  15. amache

    amache Thành viên mới

    Mục này hay quá MrLong. Em đã dowload hoàn chỉnh và chạy được rồi. Cảm ơn sáng tạo của Bác, lúc nào cần chi tiết em hỏi Bác sau.
     
  16. phamduylong

    phamduylong Thành viên danh dự

    Đang hoàn chỉnh và bổ sung thêm một số chức năng mà các yêu cầu. Hẹn tuần sau.
     
  17. phamduylong

    phamduylong Thành viên danh dự

  18. Tiện thể chi mình hỏi luôn phần In
    Tại Sheet1 có số trang 1-3 từ sheet2 có số trang cần đặt 4-6 ...vv
    vậy nhờ các bác giúp cho
     
  19. phamduylong

    phamduylong Thành viên danh dự

    Sheet 2 khai báo trang in trong Page Seup > Page:
    First page number=4
     
  20. Thanh Nam 2511

    Thanh Nam 2511 Thành viên mới


    Cảm ơn thầy Phạm Duy Long . Phải đến bài này nữa thì mới làm được việc in chẵn lẻ trong Excel.
     

Chia sẻ trang này