Private Declare Function PRINTDLG Lib "comdlg32.dll" Alias "PrintDlgA" _
       (lpDlg As PRINTDLG) As Long
 
Private Type PRINTDLG
        lStructSize As Long
        hwndOwner As Long
        hDevMode As Long
        hDevNames As Long
        hdc As Long
        flags As Long
        nFromPage As Integer
        nToPage As Integer
        nMinPage As Integer
        nMaxPage As Integer
        nCopies As Integer
        hInstance As Long
        lCustData As Long
        lpfnPrintHook As Long
        lpfnSetupHook As Long
        lpPrintTemplateName As String
        lpSetupTemplateName As String
        hPrintTemplate As Long
        hSetupTemplate As Long
End Type
 
Private myDlg As PRINTDLG
 
Private Sub Command1_Click()
   myDlg.lStructSize = Len(myDlg)
   PRINTDLG myDlg
End Sub