public PrinterSpecifications Specifications { get; set; }
Public Property Specifications As PrinterSpecifications
public:
property PrinterSpecifications^ Specifications {
PrinterSpecifications^ get();
void set ( PrinterSpecifications^ );
}
The printer specifications.
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;
Printer.UnInstall(tmpPrinterInfo);
}
string documentPrinterRegPath = "SOFTWARE\\LEAD Technologies, Inc.\\20\\Printer\\";
PrinterInfo printerInfo = 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 21\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("Installation {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:\LEADTOOLS21\Resources\Images";
}
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 21\\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:\LEADTOOLS21\Resources\Images"
End Class
Help Collections
Raster .NET | C API | C++ Class Library | HTML5 JavaScript
Document .NET | C API | C++ Class Library | HTML5 JavaScript
Medical .NET | C API | C++ Class Library | HTML5 JavaScript
Medical Web Viewer .NET
Multimedia
Direct Show .NET | C API | Filters
Media Foundation .NET | C API | Transforms
Supported Platforms
.NET, Java, Android, and iOS/macOS Assemblies
Imaging, Medical, and Document
C API/C++ Class Libraries
Imaging, Medical, and Document
HTML5 JavaScript Libraries
Imaging, Medical, and Document
Your email has been sent to support! Someone should be in touch! If your matter is urgent please come back into chat.
Chat Hours:
Monday - Friday, 8:30am to 6pm ET
Thank you for your feedback!
Please fill out the form again to start a new chat.
All agents are currently offline.
Chat Hours:
Monday - Friday
8:30AM - 6PM EST
To contact us please fill out this form and we will contact you via email.