Imports System.Environment
Imports System.Net
Public Class Tester
Public Shared Sub Main
Dim proc As New System.Diagnostics.Process()
Dim SystemDir As String = System.Environment.SystemDirectory
proc.Start("rundll32.exe", "shell32.dll,SHHelpShortcuts_RunDLL AddPrinter")
End Sub
End Class
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GetInstalledPrinters
public Shared Sub Main
Dim PrinterName As String
For Each PrinterName In System.Drawing.Printing.PrinterSettings.InstalledPrinters
Console.WriteLine(PrinterName)
Next
End Sub
End class