←Select platform

PrinterSpecifications Class

Summary

The PrinterSpecifications class provides information about the print quality, paper size, paper orientation, and paper margins.

Syntax

C++

public class PrinterSpecifications

  
Public Class PrinterSpecifications

public ref class PrinterSpecifications

Example

using Leadtools.Printer; 
using Leadtools; 
 
public void PrinterDriverExamples() 
{ 
   InstallPrinter(); 
 
   printer = new Printer("Test LEADTOOLS Printer "); 
 
   if (printer.IsPrinterLocked()) 
   { 
      printer.UnLock("Test Password"); 
   } 
   else 
   { 
      printer.Lock("Test Password"); 
   } 
 
   int iPAPER_USER = 256; 
   PrinterSpecifications myPrinterSpecifications = 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; 
 
   printer.Specifications = myPrinterSpecifications; 
   printer.UserDefaultSpecifications = myPrinterSpecifications; 
 
   printer.EmfEvent += new EventHandler<EmfEventArgs>(printer_EmfEvent); 
   printer.JobEvent += new EventHandler<JobEventArgs>(printer_JobEvent); 
} 
 
Printer printer; 
 
public void InstallPrinter() 
{ 
   try 
   { 
      string printerName = "Test LEADTOOLS Printer"; 
      string printerPassword = "Test Password"; 
      if (Printer.IsLeadtoolsPrinter(printerName)) 
      { 
         PrinterInfo tmpPrinterInfo = new PrinterInfo(); 
         tmpPrinterInfo.PrinterName = printerName; 
         tmpPrinterInfo.DriverName = printerName; 
         Printer.UnInstall(tmpPrinterInfo); 
      } 
 
      string documentPrinterRegPath = "SOFTWARE\\LEAD Technologies, Inc.\\19\\Printer\\"; 
      PrinterInfo printerInfo = 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 19\Bin\Common\PrinterDriver"; 
      printerInfo.Url = "https://www.leadtools.com"; 
      printerInfo.PrinterExe = Application.ExecutablePath; 
      printerInfo.AboutString = "LEADTOOLS Printer"; 
      printerInfo.AboutIcon = Path.Combine(LEAD_VARS.ImagesDir, "RasterPro.ico"); 
 
      Printer.Install(printerInfo); 
 
      string strMsg = string.Format("Installion {0} Completed Successfully", printerName); 
      MessageBox.Show(strMsg, "LEADTOOLS Printer Demo", MessageBoxButtons.OK, MessageBoxIcon.Information); 
   } 
   catch (PrinterDriverException ex) 
   { 
      MessageBox.Show(string.Format("Other error: Message:{0}", ex.Message)); 
   } 
} 
 
void printer_EmfEvent(object sender, EmfEventArgs e) 
{ 
   System.IO.File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, @"LEADTOOLS_IMAGE1.emf"), e.Stream.ToArray()); 
   Metafile metaFile = new Metafile(e.Stream); 
 
   Image emfImage = metaFile.GetThumbnailImage(metaFile.Width, metaFile.Height, null, IntPtr.Zero); 
   emfImage.Save(Path.Combine(LEAD_VARS.ImagesDir, @"LEADTOOLS_IMAGE2.emf")); 
} 
 
void printer_JobEvent(object sender, JobEventArgs e) 
{ 
   string printerName = e.PrinterName; 
   int jobID = e.JobID; 
 
   if (e.JobEventState == EventState.JobStart) 
   { 
      MessageBox.Show(string.Format("Job {0} was started with printer {1}", jobID, printerName)); 
   } 
   else if (e.JobEventState == EventState.JobEnd) 
   { 
      MessageBox.Show(string.Format("Job {0} was ended with printer {1}", jobID, printerName)); 
   } 
   else 
   { 
      printer.CancelPrintedJob(jobID); 
   } 
} 
 
static class LEAD_VARS 
{ 
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images"; 
}

Imports Leadtools.Support.Examples 
Imports Leadtools.Printer 
Imports Leadtools 
   ''' <!--Leadtools.Printer.Printer.GetPrinterInfo--> 
      If Printer.IsLeadtoolsPrinter(printerName) Then 
   ''' <!--Leadtools.Printer.Printer.GetPrinterInfo--> 
   ''' <!--Leadtools.Printer.Printer.Install--> 
         If (Printer.IsLeadtoolsPrinter(printerName)) Then 
         printerInfo.Url = "http://www.LeadtoolsPrinterDriver.com" 
   ''' <!--Leadtools.Printer.Printer.Install--> 
   ''' <!--Leadtools.Printer.Printer.Specifications--> 
         If (Printer.IsLeadtoolsPrinter(printerName)) Then 
         printerInfo.Url = "http://www.LeadtoolsPrinterDriver.com" 
   ''' <!--Leadtools.Printer.Printer.Specifications--> 
   ''' <!--Leadtools.Printer.Printer.RemoteData--> 
   ''' <!--Leadtools.Printer.Printer.RemoteData--> 
   ''' <!--Leadtools.Printer.Printer.EnableInternetPrinting--> 
   ''' <!--Leadtools.Printer.Printer.EnableInternetPrinting--> 
 
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.\\19\\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 19\\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