Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Печать файлов Word - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать файлов Word (Макросы/Sub)
Печать файлов Word
octopus Дата: Пятница, 20.03.2015, 11:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Имеется файл otdr.doc
Как в VBA Excel прописать код печати этого файла?
Не могу найти.

Не судите строго новичка.....
 
Ответить
СообщениеИмеется файл otdr.doc
Как в VBA Excel прописать код печати этого файла?
Не могу найти.
Автор - octopus
Дата добавления - 20.03.2015 в 11:06
Pelena Дата: Пятница, 20.03.2015, 11:58 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Не понятно, где этот файл "имеется". Может так?
[vba]
Код
Sub PrintWord()
     Dim objWord As Object, objDoc As Object
     Set objWord = CreateObject("Word.Application")
     Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\otdr.doc")
     objDoc.PrintOut
     objDoc.Close False
     objWord.Quit
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНе понятно, где этот файл "имеется". Может так?
[vba]
Код
Sub PrintWord()
     Dim objWord As Object, objDoc As Object
     Set objWord = CreateObject("Word.Application")
     Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\otdr.doc")
     objDoc.PrintOut
     objDoc.Close False
     objWord.Quit
End Sub
[/vba]
Автор - Pelena
Дата добавления - 20.03.2015 в 11:58
krosav4ig Дата: Пятница, 20.03.2015, 21:47 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
[vba]
Код
Sub PrintDoc()
     CreateObject("Shell.Application").Namespace(0). _
         ParseName(ThisWorkbook.Path & "\otdr.doc").InvokeVerbEx "Print"
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант
[vba]
Код
Sub PrintDoc()
     CreateObject("Shell.Application").Namespace(0). _
         ParseName(ThisWorkbook.Path & "\otdr.doc").InvokeVerbEx "Print"
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 20.03.2015 в 21:47
octopus Дата: Воскресенье, 22.03.2015, 23:14 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Огромное спасибо, супер! Очень пригодились ваши советы! hands

Не судите строго новичка.....
 
Ответить
СообщениеОгромное спасибо, супер! Очень пригодились ваши советы! hands
Автор - octopus
Дата добавления - 22.03.2015 в 23:14
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать файлов Word (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!