CodeItBetter Programming Another VB Programming Blog

'System & API - How can I show Page setup dialog
Option Explicit
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom 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 Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" _
    (pPagesetupdlg As PageSetupDlg) As Long
 
Private Sub Command1_Click()
    ShowPageDlg
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "ShowPageSetup"
End Sub
 
Private Sub ShowPageDlg()
    Dim PageDlg As PageSetupDlg
    PageDlg.lStructSize = Len(PageDlg)
    PageDlg.hwndOwner = Me.hWnd
    PageDlg.hInstance = App.hInstance
    PageDlg.flags = 0
    PageSetupDlg PageDlg
End Sub