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

Вход

Регистрация

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

 

= Мир MS Excel/ActiveWorkbook.DisplayDrawingObjects = xlHide - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ActiveWorkbook.DisplayDrawingObjects = xlHide (Макросы/Sub)
ActiveWorkbook.DisplayDrawingObjects = xlHide
evgenmuravsky Дата: Пятница, 05.11.2021, 17:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Всем добрый день.
До сегодняшней переустановки виндовс все хорошо работало, а именно, скрывало наложение печати, давал на печать, возвращал назад картинку печати и если нужно - сохранял в PDF. Теперь же скрывает все ActaiveX элементы, но на печать на принтер дает с ними. В документе я ничего не менял, офис 2007 установил тот же, что и был. Как можно решить проблему - что бы на печать давало без ActaiveX элементов. Заранее спасибо.

[vba]
Код
ActiveWorkbook.DisplayDrawingObjects = xlHide
If CheckBox7.Value = True Then Worksheets("СФ").PrintOut
If CheckBox8.Value = True Then Worksheets("Акт").PrintOut
If CheckBox8.Value = True Then Worksheets("Акт").PrintOut
ActiveWorkbook.DisplayDrawingObjects = xlAll

If Лист2.chkSavePdf.Value = True Then
If Лист2.chkSavePdfSchet.Value = True Then Call SaveNewBook1
If Лист2.chkSavePdfNN.Value = True Then Call SaveNewBook2
If Лист2.chkSavePdfAct.Value = True Then Call SaveNewBook3
End If
[/vba]
 
Ответить
СообщениеВсем добрый день.
До сегодняшней переустановки виндовс все хорошо работало, а именно, скрывало наложение печати, давал на печать, возвращал назад картинку печати и если нужно - сохранял в PDF. Теперь же скрывает все ActaiveX элементы, но на печать на принтер дает с ними. В документе я ничего не менял, офис 2007 установил тот же, что и был. Как можно решить проблему - что бы на печать давало без ActaiveX элементов. Заранее спасибо.

[vba]
Код
ActiveWorkbook.DisplayDrawingObjects = xlHide
If CheckBox7.Value = True Then Worksheets("СФ").PrintOut
If CheckBox8.Value = True Then Worksheets("Акт").PrintOut
If CheckBox8.Value = True Then Worksheets("Акт").PrintOut
ActiveWorkbook.DisplayDrawingObjects = xlAll

If Лист2.chkSavePdf.Value = True Then
If Лист2.chkSavePdfSchet.Value = True Then Call SaveNewBook1
If Лист2.chkSavePdfNN.Value = True Then Call SaveNewBook2
If Лист2.chkSavePdfAct.Value = True Then Call SaveNewBook3
End If
[/vba]

Автор - evgenmuravsky
Дата добавления - 05.11.2021 в 17:21
evgenmuravsky Дата: Среда, 10.11.2021, 14:38 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Вопрос закрыт.

Мое решение:

Скачал другой офис 2007. Хотя этот был установлен до этого. И переустанавливал еще раз. На других 3х компах работает все отлично. Но на моем ноуте что то пошло не так.

Тема закрыта.
 
Ответить
СообщениеВопрос закрыт.

Мое решение:

Скачал другой офис 2007. Хотя этот был установлен до этого. И переустанавливал еще раз. На других 3х компах работает все отлично. Но на моем ноуте что то пошло не так.

Тема закрыта.

Автор - evgenmuravsky
Дата добавления - 10.11.2021 в 14:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ActiveWorkbook.DisplayDrawingObjects = xlHide (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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