ayuda al imprimir con VB2008

[KingBear]

Buenas amigos, Espero alguien me pueda ayudar, lo que pasa es que mando imprimir un ticket y, el problema es que me imprime una parte y al salirme de la ventana me imprime lo demás, aquí el código



[FONT=&quot]Dim SA As SECURITY_ATTRIBUTES [/FONT]
Dim outFile As FileStream
LPTPORT = "LPT1"
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
hPortP = New IntPtr(hPort)

Dim Safe As New Microsoft.Win32.SafeHandles.SafeFileHandle(hPortP, True)
outFile = New System.IO.FileStream(Safe, IO.FileAccess.Write)

Dim fileWriter As New StreamWriter(outFile)
fileWriter.WriteLine(" " & " Nombre de Empresa")
fileWriter.WriteLine(" " & " Direccion, etc ")
[FONT=&quot]fileWriter.WriteLine(" " & " Fecha : " & Date.Today) [/FONT][FONT=&quot]
fileWriter.WriteLine(" " & "---------------------------------------")
fileWriter.WriteLine(" " & "Articulo " & " Precio " & " Cantidad " & " Total ")
fileWriter.WriteLine(" " & "---------------------------------------")

[/FONT][FONT=&quot]fileWriter.WriteLine(" " & "---------------------------------------")


' esto es lo que me imprime al salirme del form

[/FONT][FONT=&quot]fileWriter.WriteLine(" " & " Total$ " & var_Total) donde tienen el total
[/FONT][FONT=&quot]fileWriter.WriteLine(" " & "Gracias Por Su Compra")
[/FONT][FONT=&quot]fileWriter.Flush()[/FONT]



Saludos

 

[csar]

Amigo prueba con el control PrintDocument es efectivo. Suerte

 

[KingBear]

Esque como soy nuevo en la programación vb este código lo conseguí, antes de eso si investigue el printdocument pero no encontré mucho y los ejemplos que encontré no los entendí =S

 

[KingBear]

OK ya pude solucionar el problema, por si a alguien le interesa mi error
fue no cerrar el filewriter.

al final le ponen
filewriter.close()