PrinterSpecifications Constructor (PrinterSpecifications)

Imports Leadtools.Support.Examples
Imports Leadtools.Printer
Imports Leadtools

Public Sub InstallPrinter()
   Try
      Dim printerName As String = "Test LEADTOOLS Printer"
      Dim printerPassword As String = "Test Password"
      If (Printer.IsLeadtoolsPrinter(printerName)) Then
         Dim tmpPrinterInfo As New PrinterInfo()
         tmpPrinterInfo.PrinterName = printerName
         tmpPrinterInfo.DriverName = printerName
         Printer.UnInstall(tmpPrinterInfo)
      End If
         Dim documentPrinterRegPath As String = "SOFTWARE\\LEAD Technologies, Inc.\\18\\Printer\\"
      Dim printerInfo As New PrinterInfo()
      printerInfo.MonitorName = printerName
      printerInfo.PortName = printerName
      printerInfo.DriverName = printerName
      printerInfo.ProductName = printerName
      printerInfo.PrinterName = printerName
      printerInfo.Password = printerPassword
      printerInfo.RegistryKey = documentPrinterRegPath + printerName
         printerInfo.RootDir = "C:\\LEADTOOLS 18\\Bin\\Common\\PrinterDriver"
      printerInfo.Url = "http://www.LeadtoolsPrinterDriver.com"
      printerInfo.PrinterExe = Application.ExecutablePath
      printerInfo.AboutString = "LEADTOOLS Printer"
      printerInfo.AboutIcon = Path.Combine(LEAD_VARS.ImagesDir, "\\RasterPro.ico")

      Printer.Install(printerInfo)

      Dim strMsg As String = String.Format("Installion {0} Completed Successfully", printerName)
      MessageBox.Show(strMsg, "LEADTOOLS Printer Demo", MessageBoxButtons.OK, MessageBoxIcon.Information)
   Catch ex As PrinterDriverException
      MessageBox.Show(String.Format("Other error: Message:{0}", ex.Message))
   End Try
End Sub

Private Sub printerTest_EmfEvent(ByVal sender As Object, ByVal e As EmfEventArgs) Handles printerTest.EmfEvent
   System.IO.File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "LEADTOOLS_IMAGE1.emf"), e.Stream.ToArray())
   Dim metaFile As New Metafile(e.Stream)

   Dim emfImage As Image = metaFile.GetThumbnailImage(metaFile.Width, metaFile.Height, Nothing, IntPtr.Zero)
   emfImage.Save(Path.Combine(LEAD_VARS.ImagesDir, "LEADTOOLS_IMAGE2.emf"))
End Sub

Private Sub printerTest_JobEvent(ByVal sender As Object, ByVal e As JobEventArgs) Handles printerTest.JobEvent
   Dim printerName As String = e.PrinterName
   Dim jobID As Integer = e.JobID

   If (e.JobEventState = EventState.JobStart) Then
      MessageBox.Show(String.Format("Job {0} was started with printer {1}", jobID, printerName))
   ElseIf (e.JobEventState = EventState.JobEnd) Then
      MessageBox.Show(String.Format("Job {0} was ended with printer {1}", jobID, printerName))
   Else
      printerTest.CancelPrintedJob(jobID)
   End If
End Sub

Dim WithEvents printerTest As Printer

Public Sub PrinterDriverExamples()
   printerTest = New Printer("Test LEADTOOLS Printer")
   InstallPrinter()

   If (printerTest.IsPrinterLocked()) Then
      printerTest.UnLock("Test Password")
   Else
      printerTest.Lock("Test Password")
   End If

   Dim iPAPER_USER As Integer = 256
   Dim myPrinterSpecifications As New PrinterSpecifications()
   myPrinterSpecifications.PaperID = iPAPER_USER + 200
   myPrinterSpecifications.PaperSizeName = "Custom Paper Name"
   myPrinterSpecifications.PaperHeight = 11
   myPrinterSpecifications.PaperWidth = 8
   myPrinterSpecifications.DimensionsInInches = True
   myPrinterSpecifications.PortraitOrient = True
   myPrinterSpecifications.MarginsPrinter = "Margins Printer Name"
   myPrinterSpecifications.PrintQuality = 300
   myPrinterSpecifications.YResolution = 300

   printerTest.Specifications = myPrinterSpecifications
   printerTest.UserDefaultSpecifications = myPrinterSpecifications
End Sub

Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class