In trang chẵn, lẻ trong Excel

[viehoai]

Em xài excel 2007 tải về giải nén rồi nhưng không xài được. Anh pham_duy_long giúp em với.

Tìm Thầy Phạm Duy Long ở đây

 

[tiensinh1601]

Thank Bác Long nhiều nhé.

 

[nvnpt0]

Cách của bạn có vẻ hơi phức tạp đấy. Tôi có cách này bạn xem sao : http://cyp.edu.vn/thnn/vi/news/Hoat...an-in-trang-chan-le-trong-Excel-2007-2010-31/

 

[giangson818181]

Anh Long oi! Cho em hỏi một chút.
Bây giờ em vừa muốn in trang lẻ hoặc chẵn và chọn số trang từ trang này đển trang kia. Ví dụ: em có 1 file 70 100 trang mà em chỉ muốn in (le+ từ trang 1 -70) thì em phải làm thế nào?
Mong anh giúp đỡ

 

[quynhtlbp]

In trang chẵn lẻ trong word bạn làm như sau đỡ phải xếp lại giấy khi có nhiều trang in một lúc
VD bạn co tài liệu dài 20 trang bạn làm như sau nhấn Ctrl + P để gọi hộp thoại tại khung pager in trang lẻ trước bạn nhập "1-20" tại khung Print -> odd pager->Ok, in trang chẵn không phải xếp lại giấy, nhập vào mục pager "20-1" tại khung print->Even pager ->Ok

 

[thangluu0066]

Cảm ơn bạn Long nhiều lắm! Nhưng mình có một yêu cầu: Bạn làm giúp tính năng in trang ngược từ cuối lên đầu nữa thì hay biết mấy. Như thế in hai mặt rất tiện ích vì hiện tại sau chọn in các trang chẵn hoặc lẻ muốn in hai mặt đúng thứ tự phải sắp xếp lại trang in rồi lại in tiếp thì mới đúng. Nếu có tính năng in từ trang cuối (chẵn hoặc lẻ) tới trang đầu nữa thì chỉ việc nạp giấy vào sau khi đã in xong mặt một (lẻ hoặc chẵn) và in tiếp các trang mặt hai (chẵn hoặc lẻ) từ cuối lên đầu là đúng thứ tự luôn, sẽ tiện ích hơn rất nhiều. Cảm ơn bạn!

 

[quynhtlbp]

In trang chẵn lẻ trong word bạn làm như sau đỡ phải xếp lại giấy khi có nhiều trang in một lúc
VD bạn co tài liệu dài 20 trang bạn làm như sau nhấn Ctrl + P để gọi hộp thoại tại khung pager in trang lẻ trước bạn nhập "1-20" tại khung Print -> odd pager->Ok, in trang chẵn không phải xếp lại giấy, nhập vào mục pager "20-1" tại khung print->Even pager ->Ok

Bạn Làm Vậy Nhé.

 

[thangluu0066]

Cảm ơn bạn quynhtlbp!
Là mình đang nói về giải pháp của bạn Duy Long in trang chẵn lẻ trong excel bạn àh. Nếu bạn Duy Long làm thêm tính năng in trang (chẵn hoặc lẻ) từ trang cuối tới trang đầu nữa thì việc in hai mặt ở các máy in thông thường sẽ rất tiện lợi. Cảm ơn bạn nhiều!

 

[gold_00]

Bạn hỏi như thế là để in hai mặt phải không?trong excel cho phép in 2 mặt như sau:
print (ctr+p)/properties/finishing/check vào "print on both sides (manually)"
Cái lệnh này sẽ in trang chẵn trước, từ trang lớn tới trang bé, sau khi in sau 1 mặt bạn chỉ việc để nguyên vào máy và in tiếp thôi. Đơn giản mà thuận tiện.

 

[gold_00]

.............................

 

[hoangthien1212]

Ôi cám ơn bác Duy Long, mình làm được rồi. Trời ơi tiết kiệm được bao nhiêu là thời gian

 

[hoanguyen212]

sao bác này tài thế.Hâm mộ bác quá

 

[kesitinhln1986]

Cảm ơn bạn rất nhiều! nút thank ở đâu nhi?

 

[tuphuchau]

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

thank bạn nhiều.mình đã in chẵn lẻ được rồi

 

[l2bled]

in chẵn lẻ được rồi nhưng bác làm thêm số bản cần in nữa thì ngon

 

[dangkygpexcel]

có cách nào để in các trang thụt lùi như trong word hay không, ví dụ:
Chỉ in lùi những trang chẵn: 20,18,16...
Chỉ in lùi những trang lẻ: 19,17,15...

 

[mnxuanthanh]

Em đã làm đúng như hướng dẫn mà đến khâu cài đặt lại báo lỗi là sao hả các bác?

 

[trieuducphu]

Chết roi rồi. Nó có giới hạn trang in hả Mr.Long? mình in gần 200 trang lận nó chạy được hơn chục trang thì dừng giờ phải làm sao?

 

[dinhtienhung789]

Anh duy ơi! Mỗi lần in em lại phải Add-Int lai. Vì trên thanh menu không xuất hiện "print" nhấn ctrt sift p cũng không in được.

 

[ly.thukhoanghia]

Khi em tải chương trình về nhưng mở ra không được là sao ? CHỉ em với