'--Local variables

Dim hPrinter As New System.IntPtr() 'Printer Handle

Dim DocInfo As New Base.Printing.Strucs.DOC_INFO

Dim lnWritten As Integer = 0

Dim LoString As New StringBuilder

'--Open Printer

If ActionLabor.Payroll.Base.Printing.PrintAPI.OpenPrinter("receipt", hPrinter, 0) = False Then

Return False

End If

'hPrinter contains the handle for the printer opened

'If hPrinter is 0 then an error has occured

If hPrinter = 0 Then

Return False

End If

Try

DocInfo.DocumentName = "Rcpt# " & Me.RctNbr

DocInfo.DataType = "RAW"

'set output to printer

LoString.AppendLine(String.Format("----{0}----", "Header"))

LoString.AppendLine("Line2")

If Not PrintAPI.WritePrinter(hPrinter, LoString.ToString, LoString.Length, lnWritten) Then

Return False

End If

Catch e As Exception

'ToDo:--Add Here

' Console.WriteLine(e.Message)

Return False

Finally

'Close

End Try

Return True