Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Mar 24, 2001

ShowNetworkPrinterConnectionDialog - Connect or disconnect a printer

Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, _
    ByVal dwType As Long) As Long
Private Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, _
    ByVal dwType As Long) As Long
 
' Show the dialog to connect/disconnect a network printer

' If the argument is True it shows the ConnectDialog,
'  otherwise it shows the Disconnect dialog
' the second argument is the hWnd of the parent dialog
'
' The function returns False if the dialog is canceled, True otherwise.

Function ShowNetworkPrinterConnectionDialog(ByVal ConnectDialog As Boolean, _
    Optional ByVal hwnd As Long) As Boolean
    Const RESOURCETYPE_PRINT = &H2
    If ConnectDialog Then
        ShowNetworkPrinterConnectionDialog = (WNetConnectionDialog(hwnd, _
            RESOURCETYPE_PRINT) = 0)
    Else
        ShowNetworkPrinterConnectionDialog = (WNetDisconnectDialog(hwnd, _
            RESOURCETYPE_PRINT) = 0)
    End If
End Function
      
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap