Một số máy in có khả năng in trên cả hai mặt của một tờ giấy. Tính năng này được gọi là in hai mặt và nó có thể tạo ra một lượng lớn thay đổi vào chi phí của một máy in. Nếu máy in của bạn không có tính năng in hai mặt, cách duy nhất để đạt được kết quả tương tự là chuyển giấy của bạn qua máy in hai lần. Macro VBA sau đây sẽ hỗ trợ bạn trong quá trình này. Đầu tiên, nó in các trang lẻ trong tài liệu, nhắc bạn lật ngược giấy, sau đó in các trang chẵn.

Sub PrintBothSides()

Dim iTemp As Integer

ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintOddPagesOnly     iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides")

If iTemp = vbOK Then         ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly     End If End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (1418) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003.