Specifications Property

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 
         Printer.UnInstall(tmpPrinterInfo) 
      End If 
 
      Dim documentPrinterRegPath As String = "SOFTWARE\\LEAD Technologies, Inc.\\19\\Printer\\" 
      Dim printerInfo As New PrinterInfo() 
      printerInfo.MonitorName = printerName 
      printerInfo.PortName = printerName 
      printerInfo.ProductName = printerName 
      printerInfo.PrinterName = printerName 
      printerInfo.Password = printerPassword 
      printerInfo.RegistryKey = documentPrinterRegPath + printerName 
      printerInfo.RootDir = "C:\\LEADTOOLS 20\\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("Installation of {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