Печать листа с WebBrowser-ом

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать листа с WebBrowser-ом (Макросы Sub)

alex_l

Дата: Вторник, 12.11.2013, 20:42 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2010

Есть необходимость на листе Excel (v.2007) использовать компонент WebBrowser для отображения html страницы. Все замечательно работает за исключением вывода на печать. Не удается вывести содержимое WebBrowser-а вместе с содержимым листа. Управлять выводом на печать по отдельности получается. Подскажите, никто не сталкивался с подобной проблемой?
Заранее спасибо.

Ответить

Poltava

Дата: Вторник, 12.11.2013, 21:37 | Сообщение № 2

Группа: Друзья

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

Сообщений: 232

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

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

Перечитайте правила особенно внимательно пункт три.

Ответить

alex_l

Дата: Среда, 13.11.2013, 07:30 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2010

Прошу прощения, исправляюсь...

К сообщению приложен файл: FT_131120130726.rar (20.6 Kb)

Ответить

alex_l

Дата: Среда, 13.11.2013, 08:54 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2010

Пока решил проблему с помощью копирования содержимого WebBrowser-а через буфер обмена в ячейку:
[vba]

Код

Sub ld()
      Dim objData As DataObject
      Set objData = New DataObject
      Dim wb As WebBrowser
      Set wb = New WebBrowser
      Set wb = CreateObject("InternetExplorer.Application")
      With wb
          .Navigate "about:blank"
          .Document.Write (Worksheets(ActiveSheet.Name).Cells(9, 1))
          .Refresh
          .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
          .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
      End With
      objData.GetFromClipboard
      Worksheets(ActiveSheet.Name).Cells(9, 1) = objData.GetText
      objData.SetText ""
      objData.PutInClipboard
End Sub

[/vba]

Сообщение отредактировал alex_l - Среда, 13.11.2013, 08:55

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать листа с WebBrowser-ом (Макросы Sub)

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