ActiveWorkbook.DisplayDrawingObjects = xlHide

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

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

ActiveWorkbook.DisplayDrawingObjects = xlHide (Макросы/Sub)

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]

Ответить