Листинг 1

Sub Спуск_полос()
   ` Спуск_полос Макрос
   ` Макрос записан 04.06.02 *
   `
   ActivePrinter = „Linotronic 330”

Application.PrintOut FileName:=””, Range:=wdPrintRangeOfPages, _
   Item:=wdPrintDocumentContent, Copies:=1, _
   Pages:=”16,1,2,15,14,3,4,13,12,5,6,11,10,7,8,9”, _
   PageType:=wdPrintAllPages, Collate:=True, _
   Background:=True, PrintToFile:=True, PrintZoomColumn:=2, PrintZoomRow:=1, _
   PrintZoomPaperWidth:=11907, PrintZoomPaperHeight:=16839, _
   OutputFileName:=””, Append:=False
   End Sub