Некоторые принтеры могут печатать на обеих сторонах листа бумаги. Эта функция называется двусторонней печатью, и она может значительно увеличить стоимость принтера. Если ваш принтер не поддерживает двустороннюю печать, единственный способ добиться того же результата — дважды пропустить бумагу через принтер. Следующий макрос VBA поможет вам в этом процессе. Сначала он распечатывает нечетные страницы документа, предлагает вам перевернуть бумагу, а затем печатает четные страницы.

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1418) применим к Microsoft Word 97, 2000, 2002 и 2003.