Печать с екселя вордовский документ

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Печать с екселя вордовский документ

Asretyq

Дата: Вторник, 31.10.2017, 11:03 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день, прошу помощи, не могу отправить с екселя на печать вордовский документ, и после копирования с екселя весь текст центрируется, хотя первая по центру остальной текст слева

К сообщению приложен файл: 2404223.xlsm (17.9 Kb)

Сообщение отредактировал Asretyq - Вторник, 31.10.2017, 11:04

Ответить

Asretyq

Дата: Вторник, 31.10.2017, 17:05 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 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]

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

Ответить

Печать с екселя вордовский документ

Страница 1 из 1
1