In recently needed to print labels/tickets on a series of ZEBRA printers.
This required some very specific sized labels/tickets. At first I designed everything in Crystal Reports, and everything previewed perfectly,until… I actually had to print it to the printer. The printer driver plays a very specific role, and can cause some serious headaches.
Eventually I resorted to using the .Net PrintDocument component, that allows you to specify the paper size and print to the printer on a lower level than Crystal Reports. This worked very nicely for one label/ticket, but I wanted to print a range of labels/tickets.
The Printdocument has a very strange way of processing the print command. In it’s PrintPage event, you set the e.HasMorePages property if you want to print more than one page, and the PrintPage method loops until e.HasMorePages is false. Talk about a messing with your train of thought.
What I needed was a way to say to the PrintDocument that it should print the next page, and then pass my ticket object with the next ticket’s information. Easier said than done. Fortunately, I stumbled onto this forum discussion. This code creates a custom class that inherits from the PrintDocument and give you a nifty .NextPage sub. This let’s the PrintDocument know that you’re moving onto the next page. I’m reposting it here for your convenience.
Printers sure are a lot of fun to try and figure out…depends on your opinion of fun
Public Class PrintDoc
Inherits PrintDocument Private W1, W2 As EventWaitHandle Private PagesPrinted As Int32 Public Event PrintPages(ByVal Sender As Object, ByRef e As System.Drawing.Printing.PrintPageEventArgs) Private T As Thread Private eRef As System.Drawing.Printing.PrintPageEventArgs Protected Overrides Sub OnPrintPage(ByVal e As System.Drawing.Printing.PrintPageEventArgs) eRef = e If PagesPrinted = 0 Then T.Start() Else W2.Set() PagesPrinted += 1 W1.WaitOne() End Sub Private Sub PrintDoc\_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Me.BeginPrint W1 = New EventWaitHandle(False, EventResetMode.AutoReset) W2 = New EventWaitHandle(False, EventResetMode.AutoReset) T = New Thread(AddressOf RaisePrintPages) PagesPrinted = 0 End Sub Public Sub NextPage() eRef.HasMorePages = True W1.Set() : W2.WaitOne() End Sub Private Sub RaisePrintPages() RaiseEvent PrintPages(Me, eRef) W1.Set() End Sub Private Sub PrintDoc\_EndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Me.EndPrint W1.Close() : W2.Close() End Sub
Private Sub PrintDoc1_PrintPages(ByVal Sender As Object, ByRef e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc1.PrintPages
e.Graphics.DrawString("Hello", New Font("Arial", 12, FontStyle.Regular), Brushes.Black, 100, 100) PrintDoc1.NextPage() e.Graphics.DrawString("Hello Again", New Font("Arial", 12, FontStyle.Regular), Brushes.Black, 100, 100)