In theo thứ tự đảo ngược trong Word 2007.

[ptlong04x1]

Ngày trước khi dùng Word 2003, mỗi khi in, trong phần Options ta có tuỳ chọn Reserve Print Order dùng để đảo ngược thứ tự in, nhưng bây giờ trong Word 2007 lại không thấy nữa. Các bạn chỉ giúp mình xem nó nằm ở đâu nhé.

 

[rollover79]

Ngày trước khi dùng Word 2003, mỗi khi in, trong phần Options ta có tuỳ chọn Reserve Print Order dùng để đảo ngược thứ tự in, nhưng bây giờ trong Word 2007 lại không thấy nữa. Các bạn chỉ giúp mình xem nó nằm ở đâu nhé.

Ở Word 2007 cũng có chức năng này mà, bạn mở Option của Word ra, nó nằm trong mục Advance, kéo xuống phía dưới mục Print có lựa chọn chức năng Print pages in revrse order.

 

[ptlong04x1]

Mình làm được rồi, tuy nhiên, khi mình Ctrl P rồi bấm Options từ cửa sổ Print thì lại không chọn được vào phần Advanced, vào Word Options thì mới chọn được phần Advanced, như thế này dễ gây nhầm lẫn bạn nhỉ, in hàng loạt cả trăm trang mà nhầm 1 phát bị mệt lém.

 

[nhaiyeu]

Còn một cách khác nữa làm rất nhanh bạn ạ. Bạn add đoạn mã Macro và gán phím tắt cho nó --> đảm bảo chạy bon luôn

CHÚ Ý RẰNG ĐOẠN MACRO NÀY SẼ TỰ ĐỘNG IN TRANG CHẴN THEO THỨ TỰ NGƯỢC LẠI ( VD 10-8-6-...) VÀ IN TRANG LẺ THEO ĐÚNG THỨ TỰ 1-3-5 ... NÊN BẠN KHÔNG CẦN PHẢI XẾP GIẤY THỦ CÔNG.

CHÚC THÀNH CÔNG

Sub CaoTrung_In_trangchan()
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintXMLTag = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = True
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.PrintBackgrounds = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
wdPrintEvenPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Sub CaoTrung_In_trangle()
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintXMLTag = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.PrintBackgrounds = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

 

[ptm0412]

Ở bất kỳ version nào, bạn chọn in 10-1 thì sẽ in ngược. Muốn in chẵn lẻ thì in all odd page rồi tới 10-2 even page

 

[TIENPHONG123]

Còn một cách khác nữa làm rất nhanh bạn ạ. Bạn add đoạn mã Macro và gán phím tắt cho nó --> đảm bảo chạy bon luôn

CHÚ Ý RẰNG ĐOẠN MACRO NÀY SẼ TỰ ĐỘNG IN TRANG CHẴN THEO THỨ TỰ NGƯỢC LẠI ( VD 10-8-6-...) VÀ IN TRANG LẺ THEO ĐÚNG THỨ TỰ 1-3-5 ... NÊN BẠN KHÔNG CẦN PHẢI XẾP GIẤY THỦ CÔNG.

CHÚC THÀNH CÔNG

Sub CaoTrung_In_trangchan()
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintXMLTag = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = True
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.PrintBackgrounds = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
wdPrintEvenPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Sub CaoTrung_In_trangle()
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintXMLTag = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.PrintBackgrounds = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

add macro kiểu gì vậy bạn? add vào đâu vậy

 

[thichtimtoi7x]

Ở bất kỳ version nào, bạn chọn in 10-1 thì sẽ in ngược. Muốn in chẵn lẻ thì in all odd page rồi tới 10-2 even page

Bạn ptm nói đúng đó, cò gì phải thắc mắc đâu, chỉ cần làm như vậy là OK. Ví dụ muốn in nguyên trang chẵn ngược lại (để khỏi phải xếp lại giấy mà) chỉ cần chọn Even page rồi bấm chọn trong ô page số trang (VD 100-2)/OK