Как сделать отчетв в акцессе на полный экран?

[АндрейБ]

В программе я формирую отчет заполняя таблицу в акцессе и далее открывая по этой таблице ранее созданный отчет (отчеты в акцессе удобнее чем в VB).
'Открытие отчета
Set F1.MSAccess = New Access.Application
F1.MSAccess.OpenCurrentDatabase (App.Path + "/S/R.mdb")
F1.MSAccess.Visible = True
F1.MSAccess.DoCmd.OpenReport "R1", acViewPreview

Все открывает отлично, но не на полный экран акцесс и отчет в окне акцесса так же не развернут.
Подскажите как развернуть?

[ger_kar]

Попробуй прямо в отчете вставить следующее:

Код: Выделить всё

Private Sub Report_Activate()
    DoCmd.Maximize
End Sub

[АндрейБ]

Окно отчета внутри акцесса разворачивается спасибо.
А как саму оболочку развернуть на всеь экран?

[Rody66]

А как саму оболочку развернуть на всеь экран?

Я конечно в VBA 0, но может там есть возможность определить hwnd этого главного окна? Если нет, то через FindWindow можно попробовать.
А дальше ShowWindow hwnd, SW_MAXIMIZE.

[Qwertiy]

99%, что есть нормальный способ.

[ger_kar]

Access.RunCommand Access.AcCommand.acCmdAppMaximize

[АндрейБ]

спасибо все работает.