Как распечатать документ как книгу?

@volchik1991 · Регистрация: 26.05.2009

Студворк — интернет-сервис помощи студентам

вот есьт ридокумента, нужно распечатать в альбомном виде, потот эти листы сгибаются по середине, и вообщем вы понимаете. получается книга. я сначала печатал каждую страничку отдельно. потом там где печать выбирал чисто страниц на листе два, но тогда оно уменшило шрифт в два раза, как то очень мелчко роспечаталось, помогите со способами роспечатать книгу

shanemac51 · 11.07.2013, 12:02

попробуйте макросом

Код

Sub pech8kn()
'
' печать 8 листов книжкой
' вставить лист1, перевернуть
' вставить лист2, перевернуть

 Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, _
  Item:=wdPrintDocumentContent, Copies:=1, Pages:="8,1,2,7,3,4,5,6", _
  PageType:=wdPrintAllPages, ManualDuplexPrint:=False, _
  Collate:=True, Background:=True, PrintToFile:=False, _
  PrintZoomColumn:=2, PrintZoomRow:=1, _
  PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

shanemac51 · 11.07.2013, 12:12

переблокировала документ
макрос внутри

@volchik1991 · 11.07.2013, 12:27 **[ТС]**

Сообщение от shanemac51

попробуйте макросом

Код

Sub pech8kn()
'
' печать 8 листов книжкой
' вставить лист1, перевернуть
' вставить лист2, перевернуть

 Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, _
  Item:=wdPrintDocumentContent, Copies:=1, Pages:="8,1,2,7,3,4,5,6", _
  PageType:=wdPrintAllPages, ManualDuplexPrint:=False, _
  Collate:=True, Background:=True, PrintToFile:=False, _
  PrintZoomColumn:=2, PrintZoomRow:=1, _
  PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

просто интересно куда этот макрос вставлять? есть такая штука знаю visual basic это туда?))))

shanemac51 · 11.07.2013, 12:41

документ с макросом приложен
все вставлено

ctrl+f8
pech8kn
выполнить

shanemac51 Модератор 11383 / 4693 / 757 Регистрация: 07.08.2010 Сообщений: 13,622 Записей в блоге: 4
	11.07.2013, 12:41	5
	документ с макросом приложен все вставлено ctrl+f8 pech8kn выполнить 0

Опции темы