PowerPoint VBA как в демонстрации добавить ктопку ПЕЧАТЬ РЕЗУЛЬТАТА - Microsoft Office Excel

Виталий М · 12.02.2013, 14:05

Здравствуйте!
Есть тесты сделанные в PowerPoint.
Как прописать процедуру кнопки "Печать результата чтобы последний слайд вышел" на печать
СПАСИБО

nilem · 12.02.2013, 19:09

как-нибудь так, наверное:

Код:

Sub ert()
With ActivePresentation
    .PrintOptions.RangeType = ppPrintSlideRange
    .PrintOptions.Ranges.ClearAll
    .PrintOptions.Ranges.Add .Slides.Count, .Slides.Count
    .PrintOut
End With
End Sub

правда, это не Ексель совсем...

Виталий М · 13.02.2013, 12:46

Спасибо огромное! Работает!

12.02.2013, 19:09	#2
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	как-нибудь так, наверное: Код: `Sub ert() With ActivePresentation .PrintOptions.RangeType = ppPrintSlideRange .PrintOptions.Ranges.ClearAll .PrintOptions.Ranges.Add .Slides.Count, .Slides.Count .PrintOut End With End Sub` правда, это не Ексель совсем...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Запись результата в ячейку с вычисляемым номером без VBA	varb	Microsoft Office Excel	4	25.12.2012 14:01
Написать программу демонстрации графических возможностей Turbo C++ и обучающую работе с основными граф	Donny537	Помощь студентам	0	09.05.2011 17:11
печать заметок в PowerPoint	gadspider	Помощь студентам	0	27.02.2011 09:16
Есть макрос. Надо в него добавить вывод на печать после каждого процесса.	Ogeris	Microsoft Office Excel	1	01.11.2010 07:55
помогите пожалуйста PowerPoint и VBA	CATerpillar	Microsoft Office Excel	42	09.04.2009 14:30

13.02.2013, 12:46	#3
Виталий М Новичок Джуниор Регистрация: 12.02.2013 Сообщений: 2	Спасибо огромное! Работает!