Разработка экранной формы

Экранная форма приложения должна предоставить возможность ввода данных в поля документа и проверку корректности этих данных. Для разработки формы необходимо переключится в среду программирования VBA с помощью комбинации клавиш «Alt+F11».

Рис. ХХ. Внешний вид экранной формы

Программный код формы представлен ниже. В процедуре UserForm_Initialize производится загрузка данный из таблицы «Список курсов». При нажатии на кнопку печать данные с формы переносятся в соответствующие ячейки таблицы. Команда Application.PrintOut выводит первую страницу документа на печать. Также в эту процедуру следует добавить проверку введенных пользователем данных.

Private Sub cmdОтмена_Click()

Me.Hide

End Sub

Private Sub cmdПечать_Click()

With ThisDocument.Tables(1)

.Cell(1, 1).Range.Text = txtФИО.Text

.Cell(2, 1).Range.Text = CStr(dtpДатаНачала.Value) + _

CStr(dtpДатаОкончания.Value)

.Cell(3, 1).Range.Text = txtУчреждение.Text

.Cell(4, 1).Range.Text = cmbНазваниеКурса.Text

.Cell(5, 1).Range.Text = txtКоличествоЧасов.Text

End With

Application.PrintOut FileName:="", _

Range:=wdPrintRangeOfPages, _

Item:=wdPrintDocumentContent, Copies:=1, Pages:="1", _

PageType:=wdPrintAllPages, _

ManualDuplexPrint:=False, Collate:=True, _

Background:=True, PrintToFile:=False, _

PrintZoomColumn:=0, PrintZoomRow:=0, _

PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

With ThisDocument.Bookmarks("СписокКурсов").Range.Tables(1)

For i = 2 To .Rows.Count

cmbНазваниеКурса.AddItem .Cell(i, 1).Range.Text

Next

End With

End Sub

Список литературы

1. Бакланов Д.М., Варламов А.А., Ланин В.В., Лядова Л.Н. Подсистема репортинга программного комплекса MDK METAS // Математика программных систем: Межвуз. сб. науч. тр. / Перм. ун-т. Пермь, 2003. С.19-34

2. Биллиг В.А. VBA в Office 2000. Офисное программирование. M.: Издательско-торговый дом «Русская редакция», 1999. – 480 с.: ил.

3. Вемпен Ф. Microsoft Office 97 Professional. 6 книг в одной / Пер. с англ. М.: БИНОМ, 1997. 720 с.

4. Власенко С., Маленкова А. Word 97 в вопросах и ответах. СПб: BHV–Санкт-Петербург, 1997. 336 с.

5. Джонс Э., Саттон Д. Библия пользователя Office 97 / Пер. с англ. Киев: Диалектика, 1997. – 848 с.

6. Замятина E.Б., Лядова Л.Н. Офисные технологии и основы Visual Basic for Application. Пермь: Перм. ун-т, 2001. – 232 с.: ил.

7. Карлберг К. Бизнес-анализ с помощью Excel / Пер. с англ. Киев.: Диалектика, 1997. 448 с.

8. Ланин В.В. Автоматизация подготовки отчетов на основе приложений Microsoft Office// Математика программных систем: Межвуз. сб. науч. тр. / Перм. ун-т. Пермь, 2002. С. 72-79.

9. Ланин В.В. Система автоматизации подготовки документов на основе пакета Microsoft Office // Конференция-конкурс работ студентов, аспирантов и молодых ученых «Технологии Microsoft в информатике и программировании»: Сб. тр. конф. Новосибирск, 2004. С.21-23.

10. Ланин В.В. Система управления документами в распределенных средах, основанная на метаданных // Труды 5-ой Всероссийской научно-практической конференции молодых ученых, аспирантов и студентов "Молодежь. Образование. Экономика". Ярославль, 4 мая, 2004.

11. Ланин В.В., Лядова Л.Н. Система автоматизации подготовки и обработки отчетов на основе документов Microsoft Office в многоуровневой распределенной системе управления // Международный конгресс конференций «Информационные технологии в образовании». XIII Международная конференция «Информационные технологии в образовании»: Сборник трудов участников конференции. Часть V. М.: Просвещение, 2003. С. 216‑217.

12. Линекер Р.С., Арчер Т. Программирование для Windows 98. Библия разработчика / Пер. с англ. М.: Диалектика, 1999. 864 с.

13. Лоу Д. Секреты Word для Windows 95. Киев: Диалектика, 1996. 576 с.

14. Лядова Л.Н. Архитектура информационной системы «Образование Пермской области» // Математика программных систем: Межвуз. сб. науч. тр. / Перм. ун-т. Пермь, 2002. С.25-35.

15. Лядова Л.Н. Архитектура информационной системы «Образование Пермской области» // Математика программных систем: Межвуз. сб. научн. тр. / Перм. ун‑т. Пермь, 2002. С. 25‑35.

16. Миков А.И., Лядова Л.Н., Воронцова Т.В. Информационная система «Образование Пермской области» // XII конференция-выставка «Информационные технологии в образовании»: Сб. тр. конф. Часть IV. М.: МИФИ, 2002. С.204-207.

17. Минаси М., Кристиансен Э., Шепер К. Windows 98: полное руководство / Пер. с англ. Киев: Издательская группа BHV, 1999. 800 с.

18. Персон Р. Microsoft Excel 97 в подлиннике: В 2 т./ Пер. с англ. СПб.: BHV–Санкт-Петербург, 1997. Том I. 672 с.

19. Персон Р. Microsoft Excel 97 в подлиннике: В 2 т./ Пер. с англ. СПб.: BHV–Санкт-Петербург, 1997. Том II. 640 с.

20. Санна П. Visual Basic для приложений (версия 5) в подлиннике. СПб.: BHV–Санкт-Петербург, 1997.

21. Соломон К. Microsoft Office 97: разработка приложений. СПб.: BHV–Санкт-Петербург, 1998.

22. Соломон К. Microsoft Office: Разработка приложений. СПб.: BHV-Санкт-Петербург, 1998. – 560 с.: ил.

23. Уокенбах Дж. Excel-97. Библия пользователя. Киев: Диалектика, 1997. 620 с.

24. Уэллс Э., Хешбаргер С. Microsoft Excel 97: разработка приложений. СПб.: BHV–Санкт-Петербург, 1998.

25. Уэллс Э., Хешбаргер С. Microsoft Excel: Разработка приложений. СПб.: BHV-Санкт-Петербург, 1998. – 624 с.: ил.

26. Хэлворсон М., Янг М. Эффективная работа с Microsoft Office 95 / Пер. с англ. СПб: Питер, 1996. 1024 с.

27. Microsoft Excel 2000: Справочник. СПб.: Изд‑во «Питер», 1999.

28. Microsoft Windows 95. Шаг за шагом: Практ. пособие / Пер. с англ. М.: ЭКОМ, 1996. – 320 с.

29. Microsoft Word 2000: Справочник. СПб.: Изд‑во «Питер», 1999.