MyTetra Share
Делитесь знаниями!
Открытие отчета и разворачивание его на всю доступную область программы (API)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 08 Отчеты

Открытие отчета и разворачивание его на всю доступную область программы (API)

Прислал: Дмитрий Сонных sonni-dim@mail.ru

При вызове отчета на просмотр он развернется на весь экран.
А при закрытии всё вернется к исходным размерам.
Правда тут есть и свои нюансы. Если вы не выходя из отчета захотите просмотреть какую либо форму просто переключив окно, то она окажется так же развернутой на весь экран или же отчет свернется до окна. Но для большинства случаев этот способ применим. Проверено на АС97 и АС2000.


'Помещаем в модуль описание

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long



А в отчет следующие операторы

Option Compare Database

Option Explicit


Private RepHwnd As Long


Private Sub Report_Close()

Dim w As Long

w = ShowWindow(RepHwnd, 9)

End Sub


Private Sub Report_Open(Cancel As Integer)

Dim w As Long

RepHwnd = Report.hWnd

w = ShowWindow(RepHwnd, 3)

End Sub





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования