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

[Busine2009]

А можно создать такой макрос, чтобы при нажатии на кнопку печать в диалоговом окне "Печать" появлялось сообщение, что в документе содержатся листы в альбомной ориентации (если они там есть) и формата отличного от А4?

[viter.alex]

Нет, нельзя. Отловить печать можно только до появления диалогового окна «Печать». Либо при нажатии на кнопку «Быстрая печать».
Все остальное возможно.

Добавлено позже

Sub FilePrint()
  Dim oSec As Section, sNotA4$, sNotPortrait$, iSecPgFirst%, iSecPgLast%
  For Each oSec In ActiveDocument.Sections 'Просматриваем все разделы в документе
    'Номер страницы, с которой начинается раздел
    iSecPgFirst = ActiveDocument.Range(0, oSec.Range.Start).ComputeStatistics(wdStatisticPages)
    'Номер страницы, которой раздел заканчивается
    iSecPgLast = ActiveDocument.Range(0, oSec.Range.End).ComputeStatistics(wdStatisticPages) - 1
    iSecPgLast = IIf(oSec.Index = ActiveDocument.Sections.Count, iSecPgLast + 1, iSecPgLast)
    'Если страницы в разделе имеют формат, отличный от А4
    If oSec.PageSetup.PaperSize <> wdPaperA4 Then
      sNotA4 = sNotA4 & vbCr & "Раздел " & oSec.Index & ", страницы " & iSecPgFirst & IIf(iSecPgLast - iSecPgFirst > 1, "-", ", ") & iSecPgLast
    End If
    'Если страницы в разделе имеют альбомную ориентацию
    If oSec.PageSetup.Orientation <> wdOrientPortrait Then
      sNotPortrait = sNotPortrait & vbCr & "Раздел " & oSec.Index & ", страницы " & iSecPgFirst & IIf(iSecPgLast - iSecPgFirst > 1, "-", ", ") & iSecPgLast
    End If
  Next
  If sNotA4 <> "" Then sNotA4 = "В документе есть страницы, размер которых отличен от А4:" & sNotA4 & vbCr
  If sNotPortrait <> "" Then sNotPortrait = "В документе есть страницы с альбомной ориентацией:" & sNotPortrait
  If sNotA4 <> "" Or sNotPortrait <> "" Then
    'Выводим сообщение
    Select Case MsgBox(sNotA4 & vbCr & sNotPortrait, vbInformation + vbOKCancel, "Предпечать")
      'Если в окне с сообщением нажали ОК, то показываем диалог печати
      Case vbOK: Dialogs(wdDialogFilePrint).Show
      'Если Отмена, то завершаем выполнение.
      Case vbCancel: Exit Sub
    End Select
  Else: Dialogs(wdDialogFilePrint).Show
  End If
End Sub

[Busine2009]

То есть есть возможность управления принтером по умолчанию?

[Busine2009]

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


Какие команды надо добавить в этот код, чтобы появлялось сообщение, что в документе содержится скрытый текст и страницы с полями более 3 см?

[Busine2009]

Если кому интересно, то помогу преобразовать этот макрос в более быстрый, с выводом сообщений о наличии определенных параметров в определенном разделе. Представленный выше макрос работает медленно. Я преобразовал этот макрос в более быстрый (можно сказать, моментальный).

[Busine2009]

Витер. Прочитал в учебники, что $ и % старые символы, зачем вы их используете?

[viter.alex]

Потому, что так короче.

[кудряшка]

Что нужно сделать? Делаю фон в ворде а когда печатаю на листе фона нет.

[viter.alex]

Включите в настройках «Печать фоновых цветов и рисунков»
Для Word 2007: Кнопка «Office»→Параметры Word→Экран. В разделе «Параметры печати».