Страница: 1 |
Эй люди.. помогите!!! Кто знает как вызвать окно параметры страницы, ну как в блокноте(Файл>Параметры страницы...) HELP!!
конечно удобнее вызывать окно параметров, но можно просто создать новую форму и вызывать ее, а на ней разместить те параметры которые тебе нужны. Option Explicit Private Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PageSetupDlg) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type POINTAPI x As Long y As Long End Type Private Type PageSetupDlg lStructSize As Long hwndOwner As Long hDevMode As Long hDevNames As Long flags As Long ptPaperSize As POINTAPI rtMinMargin As RECT rtMargin As RECT hInstance As Long lCustData As Long lpfnPageSetupHook As Long lpfnPagePaintHook As Long lpPageSetupTemplateName As String hPageSetupTemplate As Long End Type Private Function ShowPageSetupDlg() As Long Dim m_PSD As PageSetupDlg 'Set the structure size m_PSD.lStructSize = Len(m_PSD) 'Set the owner window m_PSD.hwndOwner = Me.hWnd 'Set the application instance m_PSD.hInstance = App.hInstance 'no extra flags m_PSD.flags = 0 'Show the pagesetup dialog If PageSetupDlg(m_PSD) Then ShowPageSetupDlg = 0 Else ShowPageSetupDlg = -1 End If End Function Private Sub Command1_Click() Dim Ret As Long Ret = ShowPageSetupDlg End Sub Вообще то в обычном комондиалоге есть выбор настроек печати, а в нём настройка параметров страницы. Это если тебе не именно сами параметры нужны, а просто возможность вызова. Страница: 1 |
Вопрос: Параметры страницы... - КАК??
Добавлено: 24.03.04 21:51
Автор вопроса: Padre | Web-сайт:
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
ISpy
Разработчик Offline Client
Вопросов: 47
Ответов: 621
Web-сайт:
Профиль | | #1
Добавлено: 25.03.04 13:35
Номер ответа: 2
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #2
Добавлено: 25.03.04 14:33
Номер ответа: 3
Автор ответа:
@CyRax PTR
ICQ: 204447456
Вопросов: 28
Ответов: 664
Web-сайт:
Профиль | | #3
Добавлено: 28.03.04 16:33