ник: serjvip
Доброго времени суток, господа. Подскажите как развернуть окно Excel на весь экран.
Если делаю так:
Public Sub prn_vippr()
Option Explicit
On Error GoTo Err_prn_vippr
Dim obExcel As Object 'сам Exel - Application
Dim xlsheet As Object 'рабочая область
Dim obWindow As Object 'окно документа
Dim NomDoc As Long 'номер документа для печати
Dim datStart As Date
Dim datEnd As Date
datStart = InputBox("Введить початкову дату", "Початкова дата")
datEnd = InputBox("Введить кінцеву дату", "Кінцева дата")
HourYes "Старт Excel"
NomDoc = 3
'Читаем шаблон
Forms!zvit.Form!Shabl = DLookup("Shablon", "Shablons", "ID = " & NomDoc)
'Запускаем с шаблоном
Forms!zvit.Form!Shabl.Action = acOLEActivate
'Установливаем связь с Excel
Set obExcel = Forms!zvit.Form!Shabl.Object.Application
'Запоминаем ссылку на окно с документом
Set obWindow = obExcel.ActiveDocument.ActiveWindow
'Максимизируем окно документа
obWindow.WindowState = 1
'Максимизируем окно
obExcel.WindowState = 1
'Максимизируем окно документа
obWindow.WindowState = 1
После строки Set obWindow = obExcel.ActiveDocument.ActiveWindow
'Максимизируем окно
obExcel.WindowState = 1
После Set obWindow = obExcel.ActiveDocument.ActiveWindow выскакивает ошибка "Object doesn't support this property or method".
Похоже набакапорил с объектами.