Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PageSetupDlg) As Long
Если пользователь нажал кнопку OK, то возвращается ненулевое значение. В случае возникновения ошибки или нажатии пользователем кнопки Отмена, функция возвращает 0 (используйте CommDlgExtendedError для получения кода ошибки)
' Показываем общее диалоговое окно Параметры страницы Dim psd As PageSetupDlg Dim lRet As Long With psd .lStructSize = Len(psd) .hwndOwner = 0 .hInstance = App.hInstance End With ' Выводим диалоговое окно lRet = PageSetupDlg(psd)