IMPRESSAO 40 COL
Pessoal
quero emitir um recibo tipo cupom em mini impressoras não fiscais, tem alguma forma genérica para todas as marcas ?
Me ajudem com exemplos
quero emitir um recibo tipo cupom em mini impressoras não fiscais, tem alguma forma genérica para todas as marcas ?
Me ajudem com exemplos
Seria algo assim :
Fonte : Buscas no site vbmania.com.br
Citação:Em visual basic 6.0 usa o seguinte código:
Open [Ô]Lpt1[Ô] For Output As #1
Print #1, [Ô][Ô]
Print #1, [Ô]TESTE DE IMPRESSÃO[Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Close #1
Pela atenção desde já agradeço antecipadamente.
Fonte : Buscas no site vbmania.com.br
RMSOFT BOA NOITE O FOXMAN DEU UM EXEMPLO.
SEGUE O MEU EXPLEMPLO, NESTE TIPO DE OCASIAO EU USO O METODO PRINTER
[txt-color=#0000f0] Printer.Print [Ô][Ô]
Printer.Print [Ô] RELATORIO DA GAVETA [Ô], [Ô][Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] ERICA [Ô]
Printer.Print [Ô][Ô]
Printer.FontBold = False
Printer.Print [Ô] [Ô]; Format(Now, [Ô]long date[Ô])
Printer.Print [Ô][Ô]
Printer.FontSize = 10: Printer.FontBold = False
Printer.Print [Ô] NOTA DE R$ 100,00 = [Ô] & txtt100.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 50,00 = [Ô] & txtt50.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 20,00 = [Ô] & txtt20.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 10,00 = [Ô] & txtt10.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 5,00 = [Ô] & txtt5.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 2,00 = [Ô] & TXTT2.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 1,00 = [Ô] & txtt1.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 1,00 = [Ô] & txtt001.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,50 = [Ô] & txtt050.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,25 = [Ô] & txtt025.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,10 = [Ô] & txtt010.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,05 = [Ô] & txtt005.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,01 = [Ô] & txtt01.Text, [Ô][Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] TOTAL DA GAVETA[Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] [Ô]; txttotal.Text
Printer.Print [Ô][Ô]
Printer.EndDoc[/txt-color]
QUALQUER COISA POSTE AQUI SUA PERGUNTA.
ESPERO TER AJUDADO.
SEGUE O MEU EXPLEMPLO, NESTE TIPO DE OCASIAO EU USO O METODO PRINTER
[txt-color=#0000f0] Printer.Print [Ô][Ô]
Printer.Print [Ô] RELATORIO DA GAVETA [Ô], [Ô][Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] ERICA [Ô]
Printer.Print [Ô][Ô]
Printer.FontBold = False
Printer.Print [Ô] [Ô]; Format(Now, [Ô]long date[Ô])
Printer.Print [Ô][Ô]
Printer.FontSize = 10: Printer.FontBold = False
Printer.Print [Ô] NOTA DE R$ 100,00 = [Ô] & txtt100.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 50,00 = [Ô] & txtt50.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 20,00 = [Ô] & txtt20.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 10,00 = [Ô] & txtt10.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 5,00 = [Ô] & txtt5.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 2,00 = [Ô] & TXTT2.Text, [Ô][Ô]
Printer.Print [Ô] NOTA DE R$ 1,00 = [Ô] & txtt1.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 1,00 = [Ô] & txtt001.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,50 = [Ô] & txtt050.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,25 = [Ô] & txtt025.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,10 = [Ô] & txtt010.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,05 = [Ô] & txtt005.Text, [Ô][Ô]
Printer.Print [Ô] MOEDA DE R$ 0,01 = [Ô] & txtt01.Text, [Ô][Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] TOTAL DA GAVETA[Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] [Ô]; txttotal.Text
Printer.Print [Ô][Ô]
Printer.EndDoc[/txt-color]
QUALQUER COISA POSTE AQUI SUA PERGUNTA.
ESPERO TER AJUDADO.
Olá RMSOFT,
O windows é meio ruim de controlar a altura do papel via método printer, se tiver este problema é melhor imprimir direto na porta LPTx, pois neste caso vc tem o controle total da impressão.
[ ][ô],s
O windows é meio ruim de controlar a altura do papel via método printer, se tiver este problema é melhor imprimir direto na porta LPTx, pois neste caso vc tem o controle total da impressão.
[ ][ô],s
Citação::
Olá RMSOFT,
O windows é meio ruim de controlar a altura do papel via método printer, se tiver este problema é melhor imprimir direto na porta LPTx, pois neste caso vc tem o controle total da impressão.
[ ][ô],s
Estes métodos funcionam em todas as marcas, tipo daruma, sweda, etc. Claro que falo isso para as não fiscais
boa noite RMSOFT
eu utilizo o printer em uma impressora BEMATECH nao fiscal. e funciona normalmente, oque voce tem que fazer é colar uns arquivos dentro da pasta system32. amanha eu posto aqui.
eu utilizo o printer em uma impressora BEMATECH nao fiscal. e funciona normalmente, oque voce tem que fazer é colar uns arquivos dentro da pasta system32. amanha eu posto aqui.
Tópico encerrado , respostas não são mais permitidas