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

Вход

Регистрация

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

 

= Мир MS Excel/Печать с екселя вордовский документ - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать с екселя вордовский документ
Печать с екселя вордовский документ
Asretyq Дата: Вторник, 31.10.2017, 11:03 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, прошу помощи, не могу отправить с екселя на печать вордовский документ, и после копирования с екселя весь текст центрируется, хотя первая по центру остальной текст слева
К сообщению приложен файл: 2404223.xlsm(18Kb)


Сообщение отредактировал Asretyq - Вторник, 31.10.2017, 11:04
 
Ответить
СообщениеДобрый день, прошу помощи, не могу отправить с екселя на печать вордовский документ, и после копирования с екселя весь текст центрируется, хотя первая по центру остальной текст слева

Автор - Asretyq
Дата добавления - 31.10.2017 в 11:03
Asretyq Дата: Вторник, 31.10.2017, 17:05 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    
    Range(ActiveCell, Range("W13")).Copy
    wdApp.Visible = True
    wdApp.Documents.Add
    'wdApp.Selection.PasteAndFormat (wdFormatDocument)
    wdDoc.Range(0).Paste
    wdDoc.SaveAs q & Range("A8").Value & ".doc"
    ActivePrinter = "Pilot XPS"
    wdDoc.PrintOut
    wdDoc.Close True
    wdApp.Quit
    'wdApp.PrintOut Copies:=1, ActivePrinter:="Microsoft print to pdf"
    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
    'Application.Workbooks.Close
[/vba]

Не знаю почему не хочет отправляться на печать, вроде же все правильно написал
 
Ответить
Сообщение[vba]
Код
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    
    Range(ActiveCell, Range("W13")).Copy
    wdApp.Visible = True
    wdApp.Documents.Add
    'wdApp.Selection.PasteAndFormat (wdFormatDocument)
    wdDoc.Range(0).Paste
    wdDoc.SaveAs q & Range("A8").Value & ".doc"
    ActivePrinter = "Pilot XPS"
    wdDoc.PrintOut
    wdDoc.Close True
    wdApp.Quit
    'wdApp.PrintOut Copies:=1, ActivePrinter:="Microsoft print to pdf"
    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
    'Application.Workbooks.Close
[/vba]

Не знаю почему не хочет отправляться на печать, вроде же все правильно написал

Автор - Asretyq
Дата добавления - 31.10.2017 в 17:05
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать с екселя вордовский документ
Страница 1 из 11
Поиск:

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