PRECISO IMPRIMIR NA LX300 COM O VB 2005

FOXMAN 21/06/2010 11:47:47
#345358 Resposta escolhida

Pesquise aqui no site que você irá encontrar solução para o seu problema.

Eu mesmo já postei essa solução em tópicos sobre o mesmo assunto.

MALA 21/06/2010 11:59:00
#345362

Eu ja pesquisei e nao encontrei nada

FOXMAN 21/06/2010 12:25:24
#345366

Pode adaptar esse código que funciona.

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=341176

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8629

Não sei como você pesquisou, mas tá ae.....

MALA 13/07/2010 21:44:12
#347258

Dim sw As New IO.StreamWriter([Ô]C:LIXOLista.txt[Ô])
sw.WriteLine(Chr(18))
sw.WriteLine(Chr(27) & [Ô]0[Ô])
[ô]ATIVAR NEGRITO
sw.WriteLine(Chr(27) & [Ô]E[Ô])
sw.WriteLine([Ô][Ô])
sw.WriteLine(Space(5) & [Ô]ORIGEM78900000000000000000000000000 NNNNNNNNN[Ô])
sw.WriteLine(Space(5) & [Ô]REMETENTEREMETENTEWWWW DESTINATARIODESTINATAR[Ô])
sw.WriteLine([Ô][Ô])
sw.WriteLine([Ô][Ô])
sw.WriteLine(Space(5) & [Ô]VOLUMEVOLUMEVOLUMEVOLU ENDERECOENDERECOENDERECO[Ô])
sw.WriteLine(Space(5) & [Ô]ENDERECOENDERECOENDERECOENDERECOENDERECOENDERECO[Ô])
sw.WriteLine(Space(12) & [Ô]PESOPESOPESOPESOP DATADATADATA NFNFNFNF[Ô])
sw.WriteLine([Ô][Ô])
sw.WriteLine(Space(5) & [Ô]DESTINO[Ô])
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[Ô])

achei este codigo,
e gostari ade saber o que cada linha faz
sw.WriteLine(Chr(27) & [Ô]0[Ô])