Using VB2008 Express I am redesigning a POS application.
(originally written in VPRO/5 (http://www.basis.com/))
One of the problems I encounter is to send the hexadecimal
value 1B70000532 (open the cashdrawer), to a CITIZEN CT-S2000 printer.
I use the Printdocument object

Private Sub Receipt_PrintPage(ByVal sender As Object, _
by val e As System.Drawing.Printing.PrintPageEventArgs) _
Handles Me.PrintPage

e.Graphics.DrawString("Name of Shop", _
_titleFont, Brushes.Black, 20, 20)

Dim yPos As Single = 100

Using img As Image = Image.FromFile("E:\winksys 2009 \citizen_logo.jpg")
e.Graphics.DrawImage(img, 20, 60)
yPos += img.Height
End Using

e.Graphics.DrawString("detail 01", _detailFont, Brushes.Black, 20 ,yPos)
yPos += e.Graphics.MeasureString("detail 01", _detailFont).Height

+++++++++++++++++++++++++++++++++
INSERT code to open Cash Drawer
hex string 1B 70 00 05 32
+++++++++++++++++++++++++++++++++

End If
End Sub

Thanks for replying