Công ty TNHH Đào tạo Tư vấn và Đầu tư AFTC
Trang 1/7 1 2 3 4 5 ... cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 61
  1. #1
    Tham gia ngày
    12 2006
    Nơi Cư Ngụ
    Đồng Tháp
    Bài gởi
    924
    Cảm ơn
    1,233
    Được cảm ơn 2,221 lần trong 662 bài viết

    In trang chẵn, lẻ trong Excel

    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

    Code:
    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
    Tập tin đính kèm Tập tin đính kèm
    pham_duy_long@yahoo.com
    DĐ: 0918 975 460

  2. Có 130 thành viên cảm ơn phamduylong về bài viết này:

    0306n70, 0904223800, @baoquang, adult, ALOAN, Angelo, anhsaobanglonely, anhtuanvn169, bbbgiang, binhan007, BlackPrince9728, BPvn, buinguyenbinh, buitoan, cherrydt, chitchit, ck04, cobenungniu, cop_kh, cuong_laocai, dailykem, dangkygpexcel, dohoainamnam, duchuy3537, ductiena12, fool, giaothongb2, haimienbac, haitan65, haonlh, havietchuong, Heo Con Ham Choi, hoahong900802, hoaithanhk25, hoangdanh282vn, hoanguyen212, hoang_bang_82, hong gam, hpnguyenhien, HUE2007, hungnguyen.qng, jenny_happylife, kekhocdoi, kienhungta, kieuhuy_bmt, kittulip, kojiro, KUMI, l2bled, lacbuidoi, Laptop2009, lekhoa02, luonchinguoc, Lưu Đức Quỳnh, MaNhatThien, matmeomun, mctydieu, minhnc, mkdlufu, nangsaigon_pn, nga xoan, Nghiama, nglesangtc, ngocmaidaiquoc24483, ngocnobita, Nguyen Mong Tuong, NGUYEN THANH TAM, nguyenhai, nguyenngockid, nguyenthanhduc60, oishi, ongtrungducmx25, phan ngoc lan, Phan3H, phanvangioi, phanvankhanh89, Phạm Văn Tuấn, phucbi56, phuong_h6410, pns56, quangnghiaka, quiqui, quoccbao, quyenxd, saokim0310, SA_DQ, sisa90, SoiBien, tan_trang52, tap su, taythi09, Tống Văn Đệ, tedaynui, thanhthuy2710, thanhxt2009, thaoxteen, thay vinh, thequang12, thiensonnt, ThuNghi, thuyyeu99, tiendung9911, tinybonds, toilalinhchien, Trần Văn Bình, TrigaMark, trong_bentre08, tuananhhpu, Tuanh, tuphuchau, USB1394, vanthutb, vhh, vietcong1980, VIETTRINH, vitcon_123, vntli233, vuabocap12, vubichngoan, vxt107, winning0308, xphong01, xuanbuu, xuantham, xuka_meou, yeuthamhangxom, Yin.kn, zsondieu

  3. #2
    Tham gia ngày
    04 2008
    Nơi Cư Ngụ
    Hà Nội
    Bài gởi
    74
    Cảm ơn
    31
    Được cảm ơn 13 lần trong 11 bài viết
    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

  4. #3
    Tham gia ngày
    01 2008
    Nơi Cư Ngụ
    Hòa Bình
    Bài gởi
    181
    Cảm ơn
    134
    Được cảm ơn 177 lần trong 88 bài viết
    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.

  5. Có 3 thành viên cảm ơn tklshb về bài viết này:


  6. #4
    Tham gia ngày
    11 2007
    Nơi Cư Ngụ
    NHA TRANG-KH
    Bài gởi
    88
    Cảm ơn
    246
    Được cảm ơn 27 lần trong 21 bài viết
    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!

  7. #5
    Tham gia ngày
    12 2006
    Nơi Cư Ngụ
    Đồng Tháp
    Bài gởi
    924
    Cảm ơn
    1,233
    Được cảm ơn 2,221 lần trong 662 bài viết
    Trích Nguyên văn bởi Haaaaaa View Post
    em gà quá, sau khi dowload file về thì sử dụng thế nào, thanks các Pro chỉ giúp,
    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.
    pham_duy_long@yahoo.com
    DĐ: 0918 975 460

  8. Có 9 thành viên cảm ơn phamduylong về bài viết này:


  9. #6
    Tham gia ngày
    11 2006
    Bài gởi
    16
    Cảm ơn
    11
    Được cảm ơn 43 lần trong 7 bài viết
    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.

  10. Có 3 thành viên cảm ơn kittulip về bài viết này:


  11. #7
    Tham gia ngày
    12 2006
    Nơi Cư Ngụ
    Đồng Tháp
    Bài gởi
    924
    Cảm ơn
    1,233
    Được cảm ơn 2,221 lần trong 662 bài viết

    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
    pham_duy_long@yahoo.com
    DĐ: 0918 975 460

  12. Có 14 thành viên cảm ơn phamduylong về bài viết này:


  13. #8
    Tham gia ngày
    12 2007
    Bài gởi
    127
    Cảm ơn
    102
    Được cảm ơn 26 lần trong 19 bài viết
    à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

  14. #9
    Tham gia ngày
    12 2006
    Nơi Cư Ngụ
    Đồng Tháp
    Bài gởi
    924
    Cảm ơn
    1,233
    Được cảm ơn 2,221 lần trong 662 bài viết
    Trích Nguyên văn bởi adult View Post
    à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
    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.
    Trích Nguyên văn bởi adult View Post
    anh ơi địa chỉ này nó báo là không chính xác anh xem lại dùm em
    Tải bình thường ! Bạn tải tại bài 1
    pham_duy_long@yahoo.com
    DĐ: 0918 975 460

  15. Có 3 thành viên cảm ơn phamduylong về bài viết này:


  16. #10
    Tham gia ngày
    12 2007
    Bài gởi
    646
    Cảm ơn
    185
    Được cảm ơn 342 lần trong 211 bài viết
    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

    Thử xem.

  17. Có 2 thành viên cảm ơn haonlh về bài viết này:


Trang 1/7 1 2 3 4 5 ... cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Đặt trang in trong excel!!!!!
    Viết bởi chuotxinh trong chuyên mục Những vấn đề chung
    Trả lời: 10
    Bài mới gởi: 16-10-13, 11:14 AM
  2. In trang chẵn, trang lẻ trong excel
    Viết bởi lazycat83 trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 50
    Bài mới gởi: 02-03-13, 08:19 PM
  3. Tạo liên kết trong excel tới trang chủ
    Viết bởi hsilver trong chuyên mục Excel và Kế Toán
    Trả lời: 6
    Bài mới gởi: 28-11-10, 01:17 PM
  4. Tính tổng từng trang trong excel
    Viết bởi chuteuthoida trong chuyên mục Giải thích, gỡ rối, xử lý lỗi công thức
    Trả lời: 1
    Bài mới gởi: 02-06-10, 08:16 AM
  5. Đánh số trang tự động trong trang mục lục của excel
    Viết bởi Đắc Khang trong chuyên mục Những vấn đề chung
    Trả lời: 2
    Bài mới gởi: 05-06-09, 03:11 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]