Я использую электронную таблицу с макросом. В этом макросе есть пользовательская форма. Эта пользовательская форма имеет кнопку, которая при нажатии открывает предварительный просмотр данных в электронной таблице. Когда я выполняю метод «PrintPreview», на всех кнопках инструменты настройки страницы отключаются , как видно на изображении ниже.
Ниже приведен код, который я использую
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Код ниже находится внутри UserForm1
Private Sub CommandButton1_Click()
Dim MySheet As Worksheet
Application.ScreenUpdating = False
Set MySheet = Worksheets("Plan3")
MySheet.Select
MySheet.Range("$A1:$AI166").Select
MySheet.PageSetup.PrintArea = "$A$1:$AI$166"
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
Me.Hide
MySheet.PrintPreview
Me.Show
End sub
Я не смог найтипричина, по которой кнопки Page Setup Tools отключены. Кто-нибудь может мне помочь?
Примечание 1 : Этот код находится внутри пользовательской формы. Пользовательская форма загружается в событие Workbook_Open ().
Примечание 2: Когда я открываю электронную таблицу двойным щелчком по файлу, пользовательская форма загружается автоматически. При нажатии кнопки CommandButton1 отображается экран предварительного просмотра печати, , однако кнопки инструментов настройки страницы отключены .
Если я открою редактор Visual Basic и запустите Workbook_Open (), при нажатии кнопки CommandButton1 отобразится кнопкана экране предварительного просмотра и кнопки инструментов настройки страницы включены . То есть , если макрос запускается с открытым редактором Visual Basic, проблема не возникает .
Примечание 3: Это происходит только в версии Excel 2007.
Примечание 4: Я сделал тест, открыв UserForm1 в режиме "(vbModeless)". В этом случае проблема не возникла. Однако в разрабатываемом приложении мне нужно открыть пользовательскую форму в режиме «(vbModal)».