473,386 Members | 1,621 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

home > topics > .net framework > questions > i need some help here

Join Bytes to post your question to a community of 473,386 software developers and data experts.

I need some help here

Hi,
I found this code that can solve a problem I have. It sends print direct to
printer.

Imports System
Imports System.Text
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
Public Structure DOCINFO<MarshalAs(UnmanagedType.LPWStr)>
Public pDocName As String<MarshalAs(UnmanagedType.LPWStr)>
Public pOutputFile As String<MarshalAs(UnmanagedType.LPWStr)>
Public pDataType As String
End Structure 'DOCINFO

Public Class PrintDirect

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
False, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function OpenPrinter(pPrinterName As String, ByRef phPrinter
As IntPtr, pDefault As Integer) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
False, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function StartDocPrinter(hPrinter As IntPtr, Level As Integer,
ByRef pDocInfo As DOCINFO) As Long
<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function StartPagePrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Ansi, ExactSpelling := True,
CallingConvention := CallingConvention.StdCall)> _
Public Shared Function WritePrinter(hPrinter As IntPtr, data As String, buf
As Integer, ByRef pcWritten As Integer) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function EndPagePrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function EndDocPrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function ClosePrinter(hPrinter As IntPtr) As Long
End Class 'PrintDirect

Public Class App

Public Shared Sub Main()
Dim lhPrinter As New System.IntPtr()

Dim di As New DOCINFO()
Dim pcWritten As Integer = 0
Dim st1 As String
' text to print with a form feed character
st1 = "This is an example of printing directly to a printer" +
ControlChars.FormFeed
di.pDocName = "my test document"
di.pDataType = "RAW"
' the \x1b means an ascii escape character
st1 = ChrW(27) + "*c600a6b0P" + ControlChars.FormFeed
'lhPrinter contains the handle for the printer opened
'If lhPrinter is 0 then an error has occured
PrintDirect.OpenPrinter("\\192.168.1.101\hpl", lhPrinter, 0)
PrintDirect.StartDocPrinter(lhPrinter, 1, di)
PrintDirect.StartPagePrinter(lhPrinter)
Try
' Moves the cursor 900 dots (3 inches at 300 dpi) in from the left margin, and
' 600 dots (2 inches at 300 dpi) down from the top margin.
st1 = ChrW(27) + "*p900x600Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Using the print model commands for rectangle dimensions, "600a" specifies
a rectangle
' with a horizontal size or width of 600 dots, and "6b" specifies a vertical
' size or height of 6 dots. The 0P selects the solid black rectangular area
fill.
st1 = ChrW(27) + "*c600a6b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with width of 6 dots, height of 600 dots, and a
' fill pattern of solid black.
st1 = ChrW(27) + "*c6a600b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Moves the current cursor position to 900 dots, from the left margin and
' 1200 dots down from the top margin.
st1 = ChrW(27) + "*p900x1200Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with a width of 606 dots, a height of 6 dots and a
// fill pattern of solid black.
st1 = ChrW(27) + "*c606a6b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Moves the current cursor position to 1500 dots from the left margin and
' 600 dots down from the top margin.
st1 = ChrW(27) + "*p1500x600Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with a width of 6 dots, a height of 600 dots and a
' fill pattern of solid black.
st1 = ChrW(27) + "*c6a600b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten) ' Send a
form feed character to the printer
st1 = ControlChars.FormFeed
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
Catch e As Exception
Console.WriteLine(e.Message)
End Try
PrintDirect.EndPagePrinter(lhPrinter)
PrintDirect.EndDocPrinter(lhPrinter)
PrintDirect.ClosePrinter(lhPrinter)
End Sub 'Main
End Class 'App
It works fine. I now wanted to include a barcode so I added the foll code
between the "TRY" "CATCH"

Dim pbox As New PictureBox
Dim NewBarcode As IDAutomation.Windows.Forms.LinearBarCode.Barcode =
New Barcode
NewBarcode.Size = New System.Drawing.Size(148, 64)
NewBarcode.Location = New System.Drawing.Point(176, 7)
NewBarcode.Name = "NewBarcode"
NewBarcode.DataToEncode = "999928829"
NewBarcode.RefreshImage()
pbox.Image = NewBarcode.Picture

st1 = pbox.ToString
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)

st1 = ChrW(27) + "*p50x400Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)

but that didn't work. The barcode dll was downloaded from
http://www.idautomation.com/formscon...rolManual.html

I get the license prompt when I run my program but where the barcode should
be on the page have "System.Windows.Forms.PictureBox, SizeMode: Normal"

I guess there is a problem converting the barcode o string. How can I fix
this?

Thanks
Jul 21 '05 #1
4 2191
The code that you are using goes around the driver. The driver is what
converts bitmaps to printer codes. Therefore, if you go around the driver,
you cannot send a bitmap to the printer.

Some printers have native support for barcodes and you use a printer code to
get it to print a barcode. I'm pretty sure this is the case with Zebra
printers.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--
"Chris" <Ch***@discussions.microsoft.com> wrote in message
news:A4**********************************@microsof t.com...
Hi,
I found this code that can solve a problem I have. It sends print direct
to
printer.

Imports System
Imports System.Text
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
Public Structure DOCINFO<MarshalAs(UnmanagedType.LPWStr)>
Public pDocName As String<MarshalAs(UnmanagedType.LPWStr)>
Public pOutputFile As String<MarshalAs(UnmanagedType.LPWStr)>
Public pDataType As String
End Structure 'DOCINFO

Public Class PrintDirect

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
False, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function OpenPrinter(pPrinterName As String, ByRef phPrinter
As IntPtr, pDefault As Integer) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
False, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function StartDocPrinter(hPrinter As IntPtr, Level As
Integer,
ByRef pDocInfo As DOCINFO) As Long
<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function StartPagePrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Ansi, ExactSpelling := True,
CallingConvention := CallingConvention.StdCall)> _
Public Shared Function WritePrinter(hPrinter As IntPtr, data As String,
buf
As Integer, ByRef pcWritten As Integer) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function EndPagePrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function EndDocPrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function ClosePrinter(hPrinter As IntPtr) As Long
End Class 'PrintDirect

Public Class App

Public Shared Sub Main()
Dim lhPrinter As New System.IntPtr()

Dim di As New DOCINFO()
Dim pcWritten As Integer = 0
Dim st1 As String
' text to print with a form feed character
st1 = "This is an example of printing directly to a printer" +
ControlChars.FormFeed
di.pDocName = "my test document"
di.pDataType = "RAW"
' the \x1b means an ascii escape character
st1 = ChrW(27) + "*c600a6b0P" + ControlChars.FormFeed
'lhPrinter contains the handle for the printer opened
'If lhPrinter is 0 then an error has occured
PrintDirect.OpenPrinter("\\192.168.1.101\hpl", lhPrinter, 0)
PrintDirect.StartDocPrinter(lhPrinter, 1, di)
PrintDirect.StartPagePrinter(lhPrinter)
Try
' Moves the cursor 900 dots (3 inches at 300 dpi) in from the left margin,
and
' 600 dots (2 inches at 300 dpi) down from the top margin.
st1 = ChrW(27) + "*p900x600Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Using the print model commands for rectangle dimensions, "600a"
specifies
a rectangle
' with a horizontal size or width of 600 dots, and "6b" specifies a
vertical
' size or height of 6 dots. The 0P selects the solid black rectangular
area
fill.
st1 = ChrW(27) + "*c600a6b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with width of 6 dots, height of 600 dots, and a
' fill pattern of solid black.
st1 = ChrW(27) + "*c6a600b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Moves the current cursor position to 900 dots, from the left margin and
' 1200 dots down from the top margin.
st1 = ChrW(27) + "*p900x1200Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with a width of 606 dots, a height of 6 dots and a
// fill pattern of solid black.
st1 = ChrW(27) + "*c606a6b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Moves the current cursor position to 1500 dots from the left margin and
' 600 dots down from the top margin.
st1 = ChrW(27) + "*p1500x600Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with a width of 6 dots, a height of 600 dots and a
' fill pattern of solid black.
st1 = ChrW(27) + "*c6a600b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten) ' Send a
form feed character to the printer
st1 = ControlChars.FormFeed
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
Catch e As Exception
Console.WriteLine(e.Message)
End Try
PrintDirect.EndPagePrinter(lhPrinter)
PrintDirect.EndDocPrinter(lhPrinter)
PrintDirect.ClosePrinter(lhPrinter)
End Sub 'Main
End Class 'App
It works fine. I now wanted to include a barcode so I added the foll code
between the "TRY" "CATCH"

Dim pbox As New PictureBox
Dim NewBarcode As IDAutomation.Windows.Forms.LinearBarCode.Barcode
=
New Barcode
NewBarcode.Size = New System.Drawing.Size(148, 64)
NewBarcode.Location = New System.Drawing.Point(176, 7)
NewBarcode.Name = "NewBarcode"
NewBarcode.DataToEncode = "999928829"
NewBarcode.RefreshImage()
pbox.Image = NewBarcode.Picture

st1 = pbox.ToString
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)

st1 = ChrW(27) + "*p50x400Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)

but that didn't work. The barcode dll was downloaded from
http://www.idautomation.com/formscon...rolManual.html

I get the license prompt when I run my program but where the barcode
should
be on the page have "System.Windows.Forms.PictureBox, SizeMode: Normal"

I guess there is a problem converting the barcode o string. How can I fix
this?

Thanks

Jul 21 '05 #2
Hi,
Where can I find code on using the driver instead? I want to print invoices
with a barcode on them. The invoice data will be pulled from database and
sent to printer.

Thanks

"Nick Malik [Microsoft]" wrote:
The code that you are using goes around the driver. The driver is what
converts bitmaps to printer codes. Therefore, if you go around the driver,
you cannot send a bitmap to the printer.

Some printers have native support for barcodes and you use a printer code to
get it to print a barcode. I'm pretty sure this is the case with Zebra
printers.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--
"Chris" <Ch***@discussions.microsoft.com> wrote in message
news:A4**********************************@microsof t.com...
Hi,
I found this code that can solve a problem I have. It sends print direct
to
printer.

Imports System
Imports System.Text
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
Public Structure DOCINFO<MarshalAs(UnmanagedType.LPWStr)>
Public pDocName As String<MarshalAs(UnmanagedType.LPWStr)>
Public pOutputFile As String<MarshalAs(UnmanagedType.LPWStr)>
Public pDataType As String
End Structure 'DOCINFO

Public Class PrintDirect

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
False, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function OpenPrinter(pPrinterName As String, ByRef phPrinter
As IntPtr, pDefault As Integer) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
False, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function StartDocPrinter(hPrinter As IntPtr, Level As
Integer,
ByRef pDocInfo As DOCINFO) As Long
<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function StartPagePrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Ansi, ExactSpelling := True,
CallingConvention := CallingConvention.StdCall)> _
Public Shared Function WritePrinter(hPrinter As IntPtr, data As String,
buf
As Integer, ByRef pcWritten As Integer) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function EndPagePrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function EndDocPrinter(hPrinter As IntPtr) As Long

<DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
True, CallingConvention := CallingConvention.StdCall)> _
Public Shared Function ClosePrinter(hPrinter As IntPtr) As Long
End Class 'PrintDirect

Public Class App

Public Shared Sub Main()
Dim lhPrinter As New System.IntPtr()

Dim di As New DOCINFO()
Dim pcWritten As Integer = 0
Dim st1 As String
' text to print with a form feed character
st1 = "This is an example of printing directly to a printer" +
ControlChars.FormFeed
di.pDocName = "my test document"
di.pDataType = "RAW"
' the \x1b means an ascii escape character
st1 = ChrW(27) + "*c600a6b0P" + ControlChars.FormFeed
'lhPrinter contains the handle for the printer opened
'If lhPrinter is 0 then an error has occured
PrintDirect.OpenPrinter("\\192.168.1.101\hpl", lhPrinter, 0)
PrintDirect.StartDocPrinter(lhPrinter, 1, di)
PrintDirect.StartPagePrinter(lhPrinter)
Try
' Moves the cursor 900 dots (3 inches at 300 dpi) in from the left margin,
and
' 600 dots (2 inches at 300 dpi) down from the top margin.
st1 = ChrW(27) + "*p900x600Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Using the print model commands for rectangle dimensions, "600a"
specifies
a rectangle
' with a horizontal size or width of 600 dots, and "6b" specifies a
vertical
' size or height of 6 dots. The 0P selects the solid black rectangular
area
fill.
st1 = ChrW(27) + "*c600a6b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with width of 6 dots, height of 600 dots, and a
' fill pattern of solid black.
st1 = ChrW(27) + "*c6a600b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Moves the current cursor position to 900 dots, from the left margin and
' 1200 dots down from the top margin.
st1 = ChrW(27) + "*p900x1200Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with a width of 606 dots, a height of 6 dots and a
// fill pattern of solid black.
st1 = ChrW(27) + "*c606a6b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Moves the current cursor position to 1500 dots from the left margin and
' 600 dots down from the top margin.
st1 = ChrW(27) + "*p1500x600Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
' Specifies a rectangle with a width of 6 dots, a height of 600 dots and a
' fill pattern of solid black.
st1 = ChrW(27) + "*c6a600b0P"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten) ' Send a
form feed character to the printer
st1 = ControlChars.FormFeed
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
Catch e As Exception
Console.WriteLine(e.Message)
End Try
PrintDirect.EndPagePrinter(lhPrinter)
PrintDirect.EndDocPrinter(lhPrinter)
PrintDirect.ClosePrinter(lhPrinter)
End Sub 'Main
End Class 'App
It works fine. I now wanted to include a barcode so I added the foll code
between the "TRY" "CATCH"

Dim pbox As New PictureBox
Dim NewBarcode As IDAutomation.Windows.Forms.LinearBarCode.Barcode
=
New Barcode
NewBarcode.Size = New System.Drawing.Size(148, 64)
NewBarcode.Location = New System.Drawing.Point(176, 7)
NewBarcode.Name = "NewBarcode"
NewBarcode.DataToEncode = "999928829"
NewBarcode.RefreshImage()
pbox.Image = NewBarcode.Picture

st1 = pbox.ToString
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)

st1 = ChrW(27) + "*p50x400Y"
PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)

but that didn't work. The barcode dll was downloaded from
http://www.idautomation.com/formscon...rolManual.html

I get the license prompt when I run my program but where the barcode
should
be on the page have "System.Windows.Forms.PictureBox, SizeMode: Normal"

I guess there is a problem converting the barcode o string. How can I fix
this?

Thanks


Jul 21 '05 #3
You need to use the System.Drawing.Printing class in order to print your
document using the print driver

http://msdn.microsoft.com/library/de...ngPrinting.asp

On the bottom of that page, there is a long set of "related links". Three
of them are to code examples, in VB, for printing.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--
"Chris" <Ch***@discussions.microsoft.com> wrote in message
news:77**********************************@microsof t.com...
Hi,
Where can I find code on using the driver instead? I want to print
invoices
with a barcode on them. The invoice data will be pulled from database and
sent to printer.

Thanks

"Nick Malik [Microsoft]" wrote:
The code that you are using goes around the driver. The driver is what
converts bitmaps to printer codes. Therefore, if you go around the
driver,
you cannot send a bitmap to the printer.

Some printers have native support for barcodes and you use a printer code
to
get it to print a barcode. I'm pretty sure this is the case with Zebra
printers.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--
"Chris" <Ch***@discussions.microsoft.com> wrote in message
news:A4**********************************@microsof t.com...
> Hi,
> I found this code that can solve a problem I have. It sends print
> direct
> to
> printer.
>
> Imports System
> Imports System.Text
> Imports System.Runtime.InteropServices
>
> <StructLayout(LayoutKind.Sequential)> _
> Public Structure DOCINFO<MarshalAs(UnmanagedType.LPWStr)>
> Public pDocName As String<MarshalAs(UnmanagedType.LPWStr)>
> Public pOutputFile As String<MarshalAs(UnmanagedType.LPWStr)>
> Public pDataType As String
> End Structure 'DOCINFO
>
> Public Class PrintDirect
>
> <DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
> False, CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function OpenPrinter(pPrinterName As String, ByRef
> phPrinter
> As IntPtr, pDefault As Integer) As Long
>
> <DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
> False, CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function StartDocPrinter(hPrinter As IntPtr, Level As
> Integer,
> ByRef pDocInfo As DOCINFO) As Long
>
>
> <DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
> True, CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function StartPagePrinter(hPrinter As IntPtr) As Long
>
> <DllImport("winspool.drv", CharSet := CharSet.Ansi, ExactSpelling :=
> True,
> CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function WritePrinter(hPrinter As IntPtr, data As String,
> buf
> As Integer, ByRef pcWritten As Integer) As Long
>
> <DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
> True, CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function EndPagePrinter(hPrinter As IntPtr) As Long
>
> <DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
> True, CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function EndDocPrinter(hPrinter As IntPtr) As Long
>
> <DllImport("winspool.drv", CharSet := CharSet.Unicode, ExactSpelling :=
> True, CallingConvention := CallingConvention.StdCall)> _
> Public Shared Function ClosePrinter(hPrinter As IntPtr) As Long
> End Class 'PrintDirect
>
> Public Class App
>
> Public Shared Sub Main()
> Dim lhPrinter As New System.IntPtr()
>
> Dim di As New DOCINFO()
> Dim pcWritten As Integer = 0
> Dim st1 As String
> ' text to print with a form feed character
> st1 = "This is an example of printing directly to a printer" +
> ControlChars.FormFeed
> di.pDocName = "my test document"
> di.pDataType = "RAW"
> ' the \x1b means an ascii escape character
> st1 = ChrW(27) + "*c600a6b0P" + ControlChars.FormFeed
> 'lhPrinter contains the handle for the printer opened
> 'If lhPrinter is 0 then an error has occured
> PrintDirect.OpenPrinter("\\192.168.1.101\hpl", lhPrinter, 0)
> PrintDirect.StartDocPrinter(lhPrinter, 1, di)
> PrintDirect.StartPagePrinter(lhPrinter)
> Try
> ' Moves the cursor 900 dots (3 inches at 300 dpi) in from the left
> margin,
> and
> ' 600 dots (2 inches at 300 dpi) down from the top margin.
> st1 = ChrW(27) + "*p900x600Y"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> ' Using the print model commands for rectangle dimensions, "600a"
> specifies
> a rectangle
> ' with a horizontal size or width of 600 dots, and "6b" specifies a
> vertical
> ' size or height of 6 dots. The 0P selects the solid black rectangular
> area
> fill.
> st1 = ChrW(27) + "*c600a6b0P"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> ' Specifies a rectangle with width of 6 dots, height of 600 dots, and a
> ' fill pattern of solid black.
> st1 = ChrW(27) + "*c6a600b0P"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> ' Moves the current cursor position to 900 dots, from the left margin
> and
> ' 1200 dots down from the top margin.
> st1 = ChrW(27) + "*p900x1200Y"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> ' Specifies a rectangle with a width of 606 dots, a height of 6 dots
> and a
> // fill pattern of solid black.
> st1 = ChrW(27) + "*c606a6b0P"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> ' Moves the current cursor position to 1500 dots from the left margin
> and
> ' 600 dots down from the top margin.
> st1 = ChrW(27) + "*p1500x600Y"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> ' Specifies a rectangle with a width of 6 dots, a height of 600 dots
> and a
> ' fill pattern of solid black.
> st1 = ChrW(27) + "*c6a600b0P"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten) ' Send
> a
> form feed character to the printer
> st1 = ControlChars.FormFeed
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length, pcWritten)
> Catch e As Exception
> Console.WriteLine(e.Message)
> End Try
> PrintDirect.EndPagePrinter(lhPrinter)
> PrintDirect.EndDocPrinter(lhPrinter)
> PrintDirect.ClosePrinter(lhPrinter)
> End Sub 'Main
> End Class 'App
>
>
> It works fine. I now wanted to include a barcode so I added the foll
> code
> between the "TRY" "CATCH"
>
>
>
> Dim pbox As New PictureBox
> Dim NewBarcode As
> IDAutomation.Windows.Forms.LinearBarCode.Barcode
> =
> New Barcode
> NewBarcode.Size = New System.Drawing.Size(148, 64)
> NewBarcode.Location = New System.Drawing.Point(176, 7)
> NewBarcode.Name = "NewBarcode"
> NewBarcode.DataToEncode = "999928829"
> NewBarcode.RefreshImage()
> pbox.Image = NewBarcode.Picture
>
> st1 = pbox.ToString
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length,
> pcWritten)
>
> st1 = ChrW(27) + "*p50x400Y"
> PrintDirect.WritePrinter(lhPrinter, st1, st1.Length,
> pcWritten)
>
> but that didn't work. The barcode dll was downloaded from
> http://www.idautomation.com/formscon...rolManual.html
>
> I get the license prompt when I run my program but where the barcode
> should
> be on the page have "System.Windows.Forms.PictureBox, SizeMode: Normal"
>
> I guess there is a problem converting the barcode o string. How can I
> fix
> this?
>
> Thanks
>
>


Jul 21 '05 #4
PictureBox.ToString() returns "System.Windows.Forms.PictureBox,
SizeMode: Normal"

You can extend PictureBox so that it draws itself:

[Serializable]
public class PictureBox : System.Windows.Forms.PictureBox,
IPrintElement
{
...

public bool Draw(IPrintEngine pe,
float xPos,
float yPos,
Graphics g,
RectangleF pageRect)
{
Bitmap myBitmap = new Bitmap(this.Image);

RectangleF destRectangle = new RectangleF(new
PointF(xPos+this.horizontalMargin,
yPos+this.verticalMargin),
this.Size);

g.DrawImage(myBitmap,destRectangle);

return false;
}
Regards,
Jeff

*** Sent via Developersdex http://www.developersdex.com ***
Jul 21 '05 #5
New Post

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

6
Need help getting hello-world working
by: Robert Maas, see http://tinyurl.com/uh3t | last post by:
System login message says PHP is available, so I tried this: http://www.rawbw.com/~rem/HelloPlus/h.php It doesn't work at all. Browser just shows the source. What am I doing wrong?
PHP
0
Help need to send email using java applet in html page
by: James Hong | last post by:
Help please, I try to sending an email from my html page using the java applet. but it give error on most of the PC only very few work, what is the error i make the java applet show as below ...
Java
6
Need some help with validating
by: mike | last post by:
Hello, After trying to validate this page for a couple of days now I was wondering if someone might be able to help me out. Below is a list of snippets where I am having the errors. 1. Line 334,...
HTML / CSS
5
desperate need of help
by: John Flynn | last post by:
hi all i'm going to be quick i have an assignment due which i have no idea how to do. i work full time so i dont have the time to learn it and its due date has crept up on me .. As follows:...
C / C++
34
need a code sample for bubble sort
by: Mark Kamoski | last post by:
Hi-- Please help. I need a code sample for bubble sort. Thank you. --Mark
C# / C Sharp
48
Need C# programmers with socket / TCP interest
by: Chad Z. Hower aka Kudzu | last post by:
A few of you may recognize me from the recent posts I have made about Indy <http://www.indyproject.org/indy.html> Those of you coming to .net from the Delphi world know truly how unique and...
C# / C Sharp
8
i need help in structures .....
by: skumar434 | last post by:
i need to store the data from a data base in to structure .............the problem is like this ....suppose there is a data base which stores the sequence no and item type etc ...but i need only...
C / C++
0
Brilliant technology helping those most in need
by: U S Contractors Offering Service A Non-profit | last post by:
Brilliant technology helping those most in need Inbox Reply U S Contractors Offering Service A Non-profit show details 10:37 pm (1 hour ago) Brilliant technology helping those most in need ...
C / C++
20
Large web site, need to do some major rearrangement of files...
by: mike | last post by:
I help manage a large web site, one that has over 600 html pages... It's a reference site for ham radio folks and as an example, one page indexes over 1.8 gb of on-line PDF documents. The site...
HTML / CSS
0
How to turn on java script in a villaon keypad mobile phone
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
Java
0
Basic Javascript concepts
by: aa123db | last post by:
Variable and constants Use var or let for variables and const fror constants. Var foo ='bar'; Let foo ='bar';const baz ='bar'; Functions function $name$ ($parameters$) { } ...
Javascript
0
Batch import of multiple excel files into the database
by: ryjfgjl | last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
Data Management
0
BarryA
Navigating the Data Structures and Algorithms (DSA)
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
Algorithms / Advanced Math
1
Is that possible of reading the .csv file in column wise and the column have different lengths ?
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
C / C++
0
How to build RAID in BIOS?
by: Hystou | last post by:
There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
Computer Hardware
0
marktang
What is ONU?
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
General
0
Oralloy
Problem With Comparison Operator <=> in G++
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
C / C++
0
jinu1996
Maximizing Business Potential: The Nexus of Website Design and Digital Marketing
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
Online Marketing

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.

BYTES.COM © 2024
About Bytes
Terms Of Use
Privacy Policy
Sitemap
Advertise on Bytes:
Post a Job
Sponsored Posts
Platinum & Gold Sponsors
Hire Now!