Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 340,156 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 3,996 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Add a Network Printer

This snippet fills the gap on how to Add a Network Printer in VB.NET, accessing the PrintUIEntry object in printui.dll.

Submitted By: RodgerB

Actions:

Rating:

Views: 7,342

Language: VB.NET

Last Modified: December 1, 2007

Instructions: 1) Copy and Paste the subroutine into a class.
2) Read how to call the function.

Snippet

''' <summary>
''' Adds a Network Printer to the computer
''' </summary>
''' <param name="printerName">Name of the Printer you'd like to add</param>
''' <param name="networkPath">The path of the networked printer</param>
''' <param name="useExistingDriver">Don't overwrite existing driver</param>
''' <param name="setDefaultPrinter">Set as the default printer</param>
''' <remarks></remarks>
Public Shared Sub AddNetworkPrinter(ByRef printerName As String, ByRef networkPath As String, _
Optional ByRef useExistingDriver As Boolean = 0, Optional ByRef setDefaultPrinter As Boolean = 0)
Dim cmdToSend As String = "rundll32 printui.dll,PrintUIEntry /in /m " & Chr(34) & printerName & Chr(34) & " /f " & networkPath
If useExistingDriver Then cmdToSend += " /u" ' /u = use the existing printer driver if it's already installed
If setDefaultPrinter Then cmdToSend += " /y" ' /y = set printer as the default
Shell(cmdToSend, AppWinStyle.Hide) ' execute the command
End Sub
' Example of how to use this subroutine:
AddNetworkPrinter("HP LaserJet 1320 PCL 6", "//myserver/Printer", True, True)

Copy & Paste

''' <summary>
''' Adds a Network Printer to the computer
''' </summary>
''' <param name="printerName">Name of the Printer you'd like to add</param>
''' <param name="networkPath">The path of the networked printer</param>
''' <param name="useExistingDriver">Don't overwrite existing driver</param>
''' <param name="setDefaultPrinter">Set as the default printer</param>
''' <remarks></remarks>

Public Shared Sub AddNetworkPrinter(ByRef printerName As String, ByRef networkPath As String, _
	Optional ByRef useExistingDriver As Boolean = 0, Optional ByRef setDefaultPrinter As Boolean = 0)
	
	Dim cmdToSend As String = "rundll32 printui.dll,PrintUIEntry /in /m " & Chr(34) & printerName & Chr(34) & " /f " & networkPath
	If useExistingDriver Then cmdToSend += " /u" '  /u = use the existing printer driver if it's already installed
	If setDefaultPrinter Then cmdToSend += " /y" '  /y = set printer as the default
	Shell(cmdToSend, AppWinStyle.Hide) ' execute the command

End Sub

' Example of how to use this subroutine:
AddNetworkPrinter("HP LaserJet 1320 PCL 6", "//myserver/Printer", True, True)