Visual Basic.NET - IMPRIMIR REPORTES CON PUERTO LPT1

   
Vista:

IMPRIMIR REPORTES CON PUERTO LPT1

Publicado por Javier (1 intervención) el 26/02/2009 23:58:52
HOLA ..
MI PROBLEMA ES QUE TENGO UN PAR DE REGISTRO EN UN CONTROL RichTextBox1
Y KIERO IMPRIMIR ESE REGISTRO CON UNA IMPRESORA Epson LQ-1070+ ESC/P 2
pero no uso el crystalreport solo estoy usando el printdocument y si alguien me ayuda es una impresora continuo manda modo texto

un ayudadita ps :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:IMPRIMIR REPORTES CON PUERTO LPT1

Publicado por jeremy (26 intervenciones) el 04/03/2009 17:12:18
Luego de largas horas de busqueda de este codigo es el mejor que se adapto a martiz de punto. en visual basic net.
creas un archivo de text .. para todos igual y luego lo imprimes un ejemplo del codigo :

oCon.Close()
Dim StrStreamW As Stream
Dim StrStreamWriter As StreamWriter
'Archivo Txt
If File.Exists("C:Imprime.txt") Then
Kill("C:Imprime.txt")
End If
StrStreamW = File.OpenWrite("C:Imprime.txt")
StrStreamWriter = New StreamWriter(StrStreamW, System.Text.Encoding.GetEncoding(437))

' ***************************************************************************
' Agrego filas al archivo de texto
' ***************************************************************************
For i = 0 To 23
StrStreamWriter.WriteLine(txtArchivoCab(i))
Next i

For i = 0 To j 'Sólo llega hasta el último item del detalle.
StrStreamWriter.WriteLine(txtArchivoDet(i))
Next i

For i = 0 To 11
StrStreamWriter.WriteLine(txtArchivoPie(i))
Next i
'***************************************************************************

StrStreamWriter.Close()

'esta es la opcion para imprimir a la martiz de punto
Shell("print /d:LPT1 C:Imprime.txt", AppWinStyle.MinimizedFocus, True, -1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar