1

Тема: Макрос для печати выделенного фрагмента.

Здравствуйте! Прошу помощи с макросом на двустороннюю печать выделенного фрагмента в word. Пытался сам ,но без опыта вышла только печать по заданным ранее критериям ,которые сбиваются при переходе в другой файл sad .Заранее спасибо)

2

Re: Макрос для печати выделенного фрагмента.

Wiroa пишет:

Здравствуйте! Прошу помощи с макросом на двустороннюю печать выделенного фрагмента в word. Пытался сам ,но без опыта вышла только печать по заданным ранее критериям ,которые сбиваются при переходе в другой файл sad .Заранее спасибо)

Добрый день!

Попробуйте использовать макрос, который был предложен здесь:
http://wordexpert.ru/forum/viewtopic.php?id=449

Sub FilePrintDuplex()
     ActiveDocument.PrintOut ManualDuplexPrint:=True
End Sub

А макрос печати выделенного фрагмента в двустороннем режиме, по идее, должен выглядеть так:

Sub FilePrintDuplex()
     ActiveDocument.PrintOut Range:=wdPrintSelection, ManualDuplexPrint:=True
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Макрос для печати выделенного фрагмента.

Небольшое примечание: Если принтер - односторонний, то команда ManualDuplexPrint:=True, вероятно, игнорируется.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4

Re: Макрос для печати выделенного фрагмента.

Уже пробовал,спасибо.

Alex_Gur пишет:

Добрый день!

Попробуйте использовать макрос, который был предложен здесь:
http://wordexpert.ru/forum/viewtopic.php?id=449

Sub FilePrintDuplex()
     ActiveDocument.PrintOut ManualDuplexPrint:=True
End Sub

Принтер просит перевернуть лист вручную ,хотя может печатать с двух сторон самостоятельно. Может ли быть проблема в аргументе ManualDuplexPrint? Есть ли иная команда для автоматической двусторонней печати?

Alex_Gur пишет:

А макрос печати выделенного фрагмента в двустороннем режиме, по идее, должен выглядеть так:

Sub FilePrintDuplex()
     ActiveDocument.PrintOut Range:=wdPrintSelection, ManualDuplexPrint:=True
End Sub