You use the same API function but with a different action flag.
Code:
Private Sub Command1_Click()
    Const PRINTACTION_DOCUMENTDEFAULTS As Long = 6
    SHInvokePrinterCommand Me.hWnd, PRINTACTION_DOCUMENTDEFAULTS, Printer.DeviceName, vbNullString, False
End Sub