VB.Net by API/System.Drawing.Printing/PrinterSettings

PrinterSettings.InstalledPrinters

<source lang="vbnet"> 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

 </source>

PrinterSettings.IsDefaultPrinter

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
       Dim ps As PrinterSettings = pg.PrinterSettings
   
       Console.WriteLine("PrinterName = " + pd.PrinterSettings.PrinterName)
       Console.WriteLine("Is default Printer = " + _
                            ps.IsDefaultPrinter.ToString())
       Console.WriteLine("Is plotter = " + ps.IsPlotter.ToString())
   End Sub

End Module

 </source>

PrinterSettings.IsPlotter

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
       Dim ps As PrinterSettings = pg.PrinterSettings
   
       Console.WriteLine("PrinterName = " + pd.PrinterSettings.PrinterName)
       Console.WriteLine("Is default Printer = " + _
                            ps.IsDefaultPrinter.ToString())
       Console.WriteLine("Is plotter = " + ps.IsPlotter.ToString())
   End Sub

End Module

 </source>

PrinterSettings.MaximumCopies

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
       Dim ps As PrinterSettings = pg.PrinterSettings
   
       Console.WriteLine("Is printer valid = " + ps.IsValid.ToString())
       Console.WriteLine("Can Duplex = " + ps.IsValid.ToString())
       Console.WriteLine("Num copies = " + ps.Copies.ToString())
       Console.WriteLine("Max Copies = " + ps.MaximumCopies.ToString())
       Console.WriteLine("Max Page = " + ps.MaximumPage.ToString())
       Console.WriteLine("Min Page = " + ps.MinimumPage.ToString())
       Console.WriteLine("Supports Color = " + ps.SupportsColor.ToString())
   End Sub

End Module

 </source>

PrinterSettings.SupportsColor

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
       Dim ps As PrinterSettings = pg.PrinterSettings
   
       Console.WriteLine("Is printer valid = " + ps.IsValid.ToString())
       Console.WriteLine("Can Duplex = " + ps.IsValid.ToString())
       Console.WriteLine("Num copies = " + ps.Copies.ToString())
       Console.WriteLine("Max Copies = " + ps.MaximumCopies.ToString())
       Console.WriteLine("Max Page = " + ps.MaximumPage.ToString())
       Console.WriteLine("Min Page = " + ps.MinimumPage.ToString())
       Console.WriteLine("Supports Color = " + ps.SupportsColor.ToString())
   End Sub

End Module

 </source>