Visual Basic.NET - Imprimir en Voucher

Un saludo muy afectuoso.

En primer lugar gracias por tomarte la molestia de consultar mi duda.

Necesito algun tips o un ejemplo de como imprimir con coordenadas sobre un Voucher que este caso es un cheque con sus datos principales como fecha, a nombre de quien, valor etc.

tambien tiene una parte donde se detalla una partida contable.

Alguien me puede dar un tips o un ejemplo de como poder realizar en VB NET una aplicacion donde se puede mandar coordenadas a la impresora en este caso es una matricial epson.

Cualquier ayuda sera bienvenida.

Salud2

Despues de horas y horas de apura prueba y error y sin dormir por + de 24 hrs encontre dos formas de poder mandar coordenadas para poder ubicar en linea y columna los datos.

Y encontre la solucion para mi proyecto.

si alguien tiene el mismo problema pues congusto le puedo ayudar.

pero aqui una porcion del codigo de una de las dos formas que logre realizar :)

Dim lineHeight As Single
Dim linesPerPage As Single = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim fontt As New System.Drawing.Font("Microsoft Verdana", 11)
Dim formatexto As New System.Drawing.StringFormat
'Dim printFont As System.Drawing.Font
''e.Graphics.DrawString(txtetiqueta1, Font(), System.Drawing.Brushes.Black, columnas, lineas)
Dim formatcantidad As String
formatcantidad = Trim(Format(Val(txtvalorq.Text), "###,##0.00"))
'imprime lugar y fecha en el chq
dev.Graphics.DrawString(tmplugarfecha, fontt, Black, xlugar, ylugar, formatexto)
If encontrarx("ordenvalorchq") = 2 Then
ev.Graphics.DrawString("** " + formatcantidad + " **", fontt, Black, xvalorchq, yvalorchq, formatexto)
End If
If encontrarx("ordenpaguesea") = 2 Then
ev.Graphics.DrawString(tmpnombrede, fontt, Black, xpaguesea, ypaguesea, formatexto)
End If
If encontrarx("ordenpaguesea") = 3 Then
ev.Graphics.DrawString(tmpnombrede, fontt, Black, xpaguesea, ypaguesea, formatexto)
End If
If encontrarx("ordenvalorchq") = 3 Then
ev.Graphics.DrawString("** " + formatcantidad + " **", fontt, Black, xvalorchq, yvalorchq, formatexto)
End If
ev.Graphics.DrawString(Frase(Letras(Val(txtvalorq.Text))), fontt, Black, xvalorletras, yvalorletras, formatexto)

..........

Salud2

Me gustaria imprimir un formulario Voucher para tener una guia

Pues entoncs contactame yo te puedo ayudar con eso MSN - email quetzalitogt