RightMargin * lUnits
    psd.flags = afFlags
    If (Hook) Then
        'HookedDialog = Me
        'Set m_oEventSink = EventSink
        'psd.lpfnPageSetupHook = lHookAddress(AddressOf PageSetupHook)
        'psd.flags = psd.flags Or PSD_EnablePageSetupHook
    End If
    
    ' Show Print dialog
    If PageSetupDlg(psd) Then
        VBPageSetupDlg2 = True
        ' Return dialog values in parameters
        TopMargin = psd.rtMargin.Top / lUnits
        LeftMargin = psd.rtMargin.Left / lUnits
        Bottom