Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Приветствую! Помогите с такой затеей..)
Имеется много вордовских файлов, из которых нужно распечатать подходящие мне страницы. Пролистывать и записывать нужные, а потом набирать их в диалоге печати долго и нудно.
Задача: как распечатать страницу "под курсором" (а не весь документ!) без всяких вопросов и подтверждений.
-----------------
Спасибо.
а что на запись макрос поставить и указать текущую не прёт??
попутно хотел спросить:
примерно с год была в коде перед отправкой на печать запись:
'не выводить сообщение при печати текста
Application.DisplayAlerts = wdAlertsNone с сегодняшнего для стало спрашивать, поля выходят за пределы .., продолжить, отвечаю да!!
С чего вдруг стало спрашивать, как избавиться???
Спасибо
Макрос получился вот такой:
Sub Печать()
'
' Печать Макрос
'
'
Windows("[b]ОСН_Практика.docx[/b]").Activate
Application.WindowState = wdWindowStateNormal
Windows("Документ Microsoft Word.docx").Activate
ActiveWindow.Panes(2).Activate
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End SubЕсли запустить этот макрос под другим док-том, то, естесно, ошибка:
Run-time error '5941':
Запрашиваемый номер семейства не существует.
Как сделать, чтобы не было привязки к конкретному документу??
Добавьте строку
File_Name = ActivateDcument.FullName
' Полное имя активного документа, также можно использовать значение File_Name получая его от пользователя или программным кодом, тогда
Application.PrintOut FileName:=File_Name, Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
File_Name = ActivateDocument.FullName
aap77, спасибо, но так и не понял, куда строку втиснуть..)) 
дуб-ясень...
Получилось так:
Sub Печать()
'
' Печать Макрос
'
'
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End SubПечатает страницу под курсором без вопросов.
File_Name = ActivateDcument.FullName
Application.PrintOut FileName:=File_Name.............
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Печать текущей страницы без лишних вопросов
Наверное, одна из самых востребованных программ пакета Microsoft – это редактор Microsoft Word, очень удобное мощное приложение с множеством функций. На портале о Microsoft Office Word вы узнаете про: чем открывать .docx. Практически каждый владелец компьютера, хотя бы раз, но работал в этой программе. И, естественно, у новичков - возникает множество вопросов по работе с приложением, а у опытных пользователей - есть свой опыт и свои секреты по этой же работе. Наш сайт о Microsoft Office Word даст ответ про: ошибка windows при открытии документа word. Одним нужны ответы и советы, а другие – могут ответить и посоветовать. Для таких случаев и создан сайт Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: как перевести документ из ворда в пдф адобе риадер.
Cайт Ворд Эксперт предоставит вам всевозможную информацию по приложению Microsoft Word. В основном разделе сайта можно найти практически все - и общую информацию, и список рекомендуемой литературы, и ответы на более конкретные вопросы - по макросам и форматированию, по работе с текстом и картинкой, по редактированию и копированию, и т.п. Наш сайт о Microsoft Office Word даст ответ про: форматирование текста скрин шота в офисе.
На случай, если вы совершенный новичок или же возникают серьезные затруднения в работе с приложением – вы всегда можете обратиться в раздел заказов. На портале о Microsoft Office Word вы узнаете про: совместимость с word 2003. Вам напишут макросы, разработают шаблоны, или сделают иную работу в редакторе. Все, что вам нужно – это просто оставить заявку в разделе. На портале о Microsoft Office Word вы узнаете про: basic вставка гиперссылки word.
Без сомнения, и новичкам, и опытным пользователям будет интересно и полезно зайти на форум сайта, где можно пообщаться, поделиться мнениями и впечатлениями и о программе, и о самом сайте. На портале о Microsoft Office Word вы узнаете про: в ворде подчеркнуть текст.