In trang chẵn, lẻ trong Excel

[phamduylong]

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

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

[tuanminhtdhbthn]

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

[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.

[ALOAN]

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!

[phamduylong]

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.

[kittulip]

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.

[phamduylong]

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

[adult]

à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

[phamduylong]

à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.

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

[haonlh]

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.