COMO IMPRIMIR

FERATK 08/08/2010 22:34:49
#349755
Olá pessoal mais uma vez estou com duvidas.
Agora é como eu faço para IMPRIMIR EM IMPRESSORA DE NOTA FISCAL.
Eu tenho uma listbox e quero imprimi-la em uma impressora de nota fiscal.
Como eu faço isso?
ALEXPASSOS 08/08/2010 23:22:58
#349756
Qual a impressora que vc esta usando?

é fiscal ou não fiscal?
FERATK 09/08/2010 13:05:24
#349790
é fiscal sim
TECLA 09/08/2010 14:08:43
#349801
[txt-size=1]Qual é a impressora (marca e modelo)?[/txt-size]
FERATK 09/08/2010 14:59:09
#349817
eu não sei quero que seja universal pois este programa é para um amigo. E não precise se preocupar em que parte da folha irá ficar cituada a impressão pois os números contidos nela serão minimos
FERATK 10/08/2010 13:17:31
#349886
alguem sabe como imprimir
TECLA 10/08/2010 13:32:56
#349889
Citação:

:
eu não sei quero que seja universal pois este programa é para um amigo. E não precise se preocupar em que parte da folha irá ficar cituada a impressão pois os números contidos nela serão minimos


Pelo jeito você não sabe diferenciar uma IMPRESSORA GENéRICA de uma que emite CUPOM FISCAL.

Citação:

:
alguem sabe como imprimir


Não.
FEDERHEN 10/08/2010 14:15:53
#349894
Resposta escolhida
Imports System.Drawing.Printing
Public Class Form1
Private Sub Button1_Click(ByVal s 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
FERATK 10/08/2010 14:36:14
#349898
Citação:

:
Imports System.Drawing.Printing
Public Class Form1
Private Sub Button1_Click(ByVal s 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



Cara tenta ser um pouco mais claro que eu não sou proficional
FERATK 11/08/2010 18:18:09
#350019
pelo amor de deus alguem me ajude a resolver este problema.
SOU INICIANTE PRECISO DE AJUDA.
AJSO 11/08/2010 19:30:29
#350021


Cada impressora fiscal tem uma dll de acesso e se vc que imprimir para todas primeiro vc precisa de uma para depois passar para todas
Cada fabricante tem um exemplo de impressão se vc for ao site do fabricante na seção de Downloads terá exemplos em Vb6, VB.net, Delphi, C++, COBOL

O PRINCIPAL é LER ATENTAMENTE OS MANUAIS DO FABRICANTE POIS NELE é QUE ESTA O MéTODO DE IMPRESSÃO FISCAL

LEMBRE-SE CADA FABRICANTE TEM SU PROPRIO MéTODO.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas