постраничная печать из Word

Программирование на Visual Basic for Applications
ret
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 11.03.2003 (Вт) 9:10
Откуда: Челябинск

постраничная печать из Word

Сообщение ret » 11.03.2003 (Вт) 9:15

требуется печатать по 3-4 экземпляра каждого листа многостраничного
документа Word. Как написать подобный макрос?

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 11.03.2003 (Вт) 11:50

Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="2", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
[/code]

а вообще это можно узнать, записав программу (не такая она и сложная) в эхорежиме :wink:

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 11.03.2003 (Вт) 11:54

Забыл напомнить, что в моем примере было
.....Copies:=2, Pages:="2".....
сам понимаешь - две копии второго листа, а там делай как тебе захочется....

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

Сообщение Calvin » 11.03.2003 (Вт) 11:56

Calvin писал(а):Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="2", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0


а вообще это можно узнать, записав программу (не такая она и сложная) в эхорежиме :wink:


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 33

    TopList