|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Imprimindo Matricial NF
|
 |
|
|
|
Postada em 22/1/2008 por claytonsantos
Imports System.Drawing.Printing
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sw As New IO.StreamWriter("C:LIXOLista.txt")
sw.WriteLine(Chr(27) & "0")
sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 1", 1, 30))
'ATIVAR NEGRITO
sw.WriteLine(Chr(27) & "E")
sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 2", 1, 30))
'DESATIVAR NEGRITO
sw.WriteLine(Chr(27) & "F")
'ATIVAR ITALICO
sw.WriteLine(Chr(27) & "4")
sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 3", 1, 30))
'DESATIVAR ITALICO
sw.WriteLine(Chr(27) & "5")
'ATIVAR CONDENSADO
sw.WriteLine(Chr(27) & Chr(15))
sw.WriteLine(Space(10) & Mid("APENAS UM TESTE 4", 1, 30))
'DESATIVAR CONDENSADO
sw.WriteLine(Chr(18))
sw.WriteLine("")
sw.WriteLine("")
sw.Flush()
sw.Close()
Dim s1 As New IO.StreamWriter("C:LIXOImprimi.bat")
s1.Write("TYPE C:LIXOLista.Txt >prn")
s1.Flush()
s1.Close()
System.Diagnostics.Process.Start("C:LIXOImprimi.bat")
End Sub
End Class
|
|
|
|
|
