Печать документов...

[Busine2009]

Как сделать так, чтобы печатались только определенные части документа?

Например, в документе есть листы альбомной ориентации и книжной.

Как написать макрос, чтобы печатались только альбомные листы или только книжной ориентации?

Или, чтобы печатались листы определенного раздела.

И вообще, возможно ли такое?

[viter.alex]

Интересный вопрос. Метод PrintOut доступен только для документа, и печатать можно только страницами. Поэтому, если все ваши разделы начинаются с новой страницы, то никаких препятствий я не вижу.

Небольшие изменения этого макроса и задача решена.
Как вы представляете себе работу макроса? Нужна форма, или как-то иначе спрашивать у пользователя, что он хочет печатать?

[Busine2009]

Да, все разделы начинаются с новой страницы.
Я попробую что-нибудь придумать.
Представляю так:
Макрос определяет наличие в документе видов ориентации. Отсюда возможны 2 ситуации: 1 ситуация: если по всему документу ориентация одинаковая, то открывается обычное диалоговое окно "Печать". 2 ситуация, если в документе имеет место различная ориентация, то появляется диалоговое окно с 3 радиокнопками (кружочками), полем для указания количества копий и кнопкой "Свойства принтера". Напротив одной радиокнопки написано: Печатать листы альбомной ориентации, напротив второй - "Печатать листы книжной ориентации", а напротив 3 - Печатать весь документ.

[Stilet]

Отсюда возможны 2 ситуации:

А разве Ворд сам не поворачивает страницы как надо?

[viter.alex]

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

А разве Ворд сам не поворачивает страницы как надо?

Поворачивать-то он поворачивает, но стоит задача печатать из документа только листы определенной ориентации, если таковые имеются.

[Stilet]

а-а-а понял...

[viter.alex]

Импортируйте эту форму в свой документ, затем в любом модуле пропишите такой макрос:

Sub SeparatePrint()
  frmPrintOrient.Show
End Sub

Если в документе есть страницы только одной ориентации, то все остальные пункты выбора будут недоступны.

[Busine2009]

Я написал не всё, что должно быть в диалоговом окне, а там должно быть еще как в диалоговом окне "Печать": Принтер Имя (то есть надо выбрать принтер), а справа от него кнопка Свойства (то есть свойства выбранного принтера).

А при импорте формы пишет следующее:

Нажимаю Файл – Импорт – Выбираю этот самый файл – Выдает ошибку:
Errors during load. Refer to ‘D:\.....\frmPrintOrient.log’ for details.

Нажимаю ОК:
System Error &H80004005 (-2147467259). Неопознанная ошибка.

Нажимаю ОК:
Out of memory.

После чего в папке, где находится тот самый файл генерируется файл с расширением .log, в котором написано следующее:
Line 8: Property OleObjectBlob in frmPrintOrient had an invalid file reference.

[viter.alex]

Прошу прощения. Модуль формы предоставил, а компоненты нет. Исправляю ошибку. Имя принтера вывести не сложно. Собственно, кнопка «Свойства принтера» как раз и позволяет изменить имя принтера, на который будет вестись печать, а вот с диалогом свойств будет сложнее. Я знаю только о методе с использованием WinAPI, но не умею его применять.
Если никто не посоветует лучше, то я сделаю.

[Busine2009]

Спасибо, гляну в будние дни (в выхдные - не знаю, смогу ли я себя заставить это сделать).