9 - 2002
Листинг 2
Sub Спуск_полос()
` Создание и инициализация переменных
` Формирование переменных для печати
` Исполняемая часть (печать документа)
ActivePrinter = ”Linotronic 330”
Application.PrintOut Range:=wdPrintRangeOfPages, _
Item:=wdPrintDocumentContent, Copies:=1, _
Pages:= sListOfPages, _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=True, _
PrintZoomColumn:=2, PrintZoomRow:=1, _
PrintZoomPaperWidth:=11907, PrintZoomPaperHeight:=16839, _
OutputFileName:= sFileNamePS, _
Append:=False
End Sub