1

Тема: Как напечатать макросом файл в 3-х экземплярах

Для печати файла в 3-х экземплярах можно использовать следующий макрос:

Sub Печать_в_3_экз()
    ' Собственно печать
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentWithMarkup, Copies:=3, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

    ' Закрытие напечатанного файла (при необходимости)
    ActiveWindow.Close
End Sub

Печать производится на принтере, установленном по умолчанию или указанном в опции Печать (Ctrl+P) - Принтер.

Чтобы напечатать файл в одном экземпляре нужно использовать выражение Copies:=1.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.