IMPRIMIR COM A ELGIN VOX NAO FISCAL
Bom dia
Alguem teria um exemplo de como imprimir na impressora não fiscal ELGIN VOX ?
se puder me dar um exemplo em VISUAL BASIC 6
Grato
Alguem teria um exemplo de como imprimir na impressora não fiscal ELGIN VOX ?
se puder me dar um exemplo em VISUAL BASIC 6
Grato
Boa tarde Marcondes.
O comando basico PRINT # resolve tudo em todos os modelos de não fiscal.
Não importa o tipo de conexão USB, SERIAL, LPT COMPARTILHAMENTO DE REDE.
Não importa o MODELO DA NÃO FISCAL. JA TESTE EM EPSON, DARUMA, BEMATECH, DATAREGIS, ELGIN.... Enfim instale uma impressora generico text na porta necessaria, e mande o comando print e só alegria. rsrs
a impressora ELGIN é a unica que eu tive que instalar o drive especifico dela.
Segue o link caso não ache no site da elgin.
http://www.progmanet.com.br/instalar/SetupELG.rar
PortaNFiscal = porta que esta instalada a impressora generico texto.
Exemplo abaixo de um simples recibo de pagamento, adpte conforme sua necessidade.
O comando basico PRINT # resolve tudo em todos os modelos de não fiscal.
Não importa o tipo de conexão USB, SERIAL, LPT COMPARTILHAMENTO DE REDE.
Não importa o MODELO DA NÃO FISCAL. JA TESTE EM EPSON, DARUMA, BEMATECH, DATAREGIS, ELGIN.... Enfim instale uma impressora generico text na porta necessaria, e mande o comando print e só alegria. rsrs
a impressora ELGIN é a unica que eu tive que instalar o drive especifico dela.
Segue o link caso não ache no site da elgin.
http://www.progmanet.com.br/instalar/SetupELG.rar
PortaNFiscal = porta que esta instalada a impressora generico texto.
Exemplo abaixo de um simples recibo de pagamento, adpte conforme sua necessidade.
On Error Resume Next
Dim Texto As String
Call Imp_Inicio(PortaNFiscal)
Print #1, Space(Int(40 - Len([Ô]RECIBO DE PAGAMENTO[Ô])) / 2) & [Ô]RECIBO DE PAGAMENTO[Ô]
Print #1, Space(Int(40 - Len([Ô]NUMERO: [Ô] & [Ô] [Ô] & Codigo.Text)) / 2) & [Ô]NUMERO: [Ô] & [Ô] [Ô] & Codigo.Text
Print #1, [Ô]----------------------------------------[Ô]
Print #1, Space(Int(40 - Len([Ô]VALOR : [Ô] & [Ô] [Ô] & Valor.Text)) / 2) & [Ô]VALOR: [Ô] & [Ô] [Ô] & Valor.Text
Print #1, [Ô] [Ô]
Print #1, [Ô] [Ô]
Texto = [Ô][Ô]
Texto = Funcao.TiraAcento([Ô]Recebi (emos) de [Ô] & UCase(Razao.Text) & [Ô] a importancia de [Ô] & Valor.Text & [Ô]( [Ô] & UCase(ExtValor.Text) & [Ô] ) , referente [Ô] & [Ô] ( [Ô] & Trim$(Referente.Text) & [Ô] ).[Ô], 600)
For X = 1 To Len(Texto)
Print #1, Trim$(Mid(Texto, X, 40))
X = X + 39
Next
Print #1, [Ô] [Ô]
Print #1, [Ô] [Ô]
Print #1, Space(Int(40 - Len([Ô]Recebido em [Ô] & DtEmissao.Text)) / 2) & [Ô]Recebido em [Ô] & DtEmissao.Text
Print #1, [Ô] [Ô]
Print #1, [Ô] [Ô]
Print #1, [Ô]----------------------------------------[Ô]
Print #1, [Ô] [Ô]
Print #1, Space(Int(40 - Len(Fantasia_Empresa)) / 2) & Fantasia_Empresa
Print #1, Space(Int(40 - Len(Endereco_Empresa & [Ô], [Ô] & Numero_Empresa)) / 2) & Endereco_Empresa & [Ô], [Ô] & Numero_Empresa
Print #1, Space(Int(40 - Len(Cidade_Empresa & [Ô] - [Ô] & Uf_Empresa)) / 2) & Cidade_Empresa & [Ô] - [Ô] & Uf_Empresa
Print #1, Space(Int(40 - Len([Ô]TEL: [Ô] & Telefone_Empresa)) / 2) & [Ô]TEL: [Ô] & Telefone_Empresa
For X = 0 To Pagina
Print #1, [Ô] [Ô]
Next
Close #1
Tópico encerrado , respostas não são mais permitidas