Avantes notes

  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта

MS Word VBA двухстороння печать

Печать
Show/Hidden bash code
View source
Sub Print_3()
Dim Y&
Dim pages_count&
        pages_count = 3
        Y = MsgBox(Prompt:="Какую сторону Акта печатать? Первую - Да, Вторую - Нет. " + vbCrLf + "Будет распечатано: " + CStr(pages_count) + " экземпляра.", Buttons:=vbYesNoCancel + vbQuestion, _
                   Title:="Печать акта")
        Select Case Y
            Case vbYes
                With Application.Dialogs(wdDialogFilePrint)
                    .Background = False
                    .NumCopies = pages_count
                    .Range = wdPrintRangeOfPages
                    .Pages = CStr(1)
                    .Execute
                End With
            Case vbNo
                With Application.Dialogs(wdDialogFilePrint)
                    .Background = False
                    .NumCopies = pages_count
                    .Range = wdPrintRangeOfPages
                    .Pages = CStr(2)
                    .Execute
                End With
            Case vbCancel
               End
        End Select
End Sub