егляд" відбудеться висновок на екран електронної таблиці для попереднього перегляду перед друком.
Код процедури:
Private Sub cmdView_Click ()
Me. Hide
ActiveWindow. SelectedSheets. PrintPreview. Show
End Sub
При натисканні на кнопку "Налаштування параметрів" з'явиться вікно "Параметри сторінки".
Код процедури:
Private Sub cmdParametrs_Click ()
Application. Dialogs (xlDialogPageSetup). Show
End Sub
При цьому передбачено збереження всіх відкритих файлів в будь-який момент. Для цього потрібно натиснути на кнопку " Зберегти всі" в правому верхньому куті форми.
Код процедури:
Private Sub cmdSaveAll_Click ()
'зберігаємо всі відкриті книги
For Each w In Application. Workbooks. Savew
End Sub
При натисканні на кнопку "Вихід" програма буде закрита, всі зроблені змін будуть збережені.
Код процедури:
Private Sub cmdExit_Click ()
For Each w In Application. Workbooks. Savew. Quit
End Sub