[Resolvido]Ajuda para a amiga tatiana.sch Impressão em 40 colunas via vba

Estou colocando uma alternativa ao problema da amiga
tatiana.sch com impressora não fiscal de 40 colunas.

Amigão, não deveria apagar esse IP que está no código ?

Open "\\192.168.0.210" For Output As #1

Isto é um exemplo, para ficar como ajuda ou é diretamente para um tópico ?

Bom dia grande mestre,
Algum tempo atrás fui reclamado por ajudar um companheiro deste fórum por meio de e-mail, então estou respondendo o e-mail de nossa amiga tatiana.sch aqui do fórum, neste tópico.

Certo, como não sabiamos e você não referenciou, a bola de cristal não mostrou.

Quanto a esta instrução ???

Open "\\192.168.0.210" For Output As #1

Está correta ?

Usa-se:
Na rede: Open "\\Computador Onde está instalada a impresora \ Nome da Impressora Compartilhada" For Output As #1

Exemplo:

Open "\\CompServidor\HPLaserJ" For Output As #1

Na Maquina atual: Open "\\LPT1:" For Output As #1

Glicerio amigão, isso eu sei, mas não é isso que está no código, é:

Open "\\192.168.0.210" For Output As #1

Para além de não ter o nome da impressora, ainda está um IP, que qualquer hacker consegue entrar, não deveria deletar esse IP e colocar um virtual para o exemplo ?

Já o fiz, e upei o exemplo atulizado mestre, agradecimentos pelo puxão de orelhas...

Obrigada pela ajuda JUNGLI ,

JPaulo, com relação ao problema do IP, não havera problema algum, pois esta faixa de IP é de uma rede local qualquer, não vai haver problema de nenhum hacker..

A impressora não esta instalada em nenhum computador, ela é sem fio, esta é a ideia

Valew, se assim é, que seja...

Ola pessoal,
'
Após algumas modificações e ajuda do pessoal daqui do forum..quase cheguei onde eu queria

Esta ocorrendo um um erro quando tento imprimir. No Windows Xp, imprimo normalmente como teste
A Impressora esta instalado em uma rede sem fio, apenas com um ip fixo(192.168.x.x)
Mas na aplicação quando imprimi não acontece nada, ja tentei as seguintes sintaxes:

Open "http://192.168.x.x" For Output As #1
Erro em tempo de execução "52" - Nome ou numero de arquivo incorreto

Assim tambem da o mesmo erro:
Open "\\192.168.x.x" For Output As #1


Como disse, quando tento imprimir um texto normal no bloco de notas, ela imprimi normal


Alguém sabe o que pode ser?

grata mais uma vez

Tatiana

Como não tenho impressora sem fio, apenas sugerindo:

- É a única impressora na rede?
- Caso tenha mais, veja se ela está como padrão antes de tentar imprimir
- Experimente assim:
Open "192.168.x.x" For Output As #1 'Tirei as barras
É claro que não funcione, mas vai saber né?

Editando: Após enviar o post, estive pensando, mas posso estar errado:
Se a impressora é sem fio, no(s) computador(es) deve haver um dispositivo
plugado nele para enviar os dados a ela (podendo ser interno tipo
BlueTooth), certo?
Então é ele que usa o IP da impressora.
Acreditando que sim, então deverá pegar o "caminho" para esse dispositivo.
Veja em que porta está esse dispositivo e use ela.

Abraços

Então,

desta forma: Open "192.168.x.x" For Output As #1 'Tirei as barras da erro tambem

Chegou a verificar em que porta está plugado o dispositivo BlueTooth?

Ola Pessoal,

A transmissão não é via Bluetooth é via Wifi.

A impressora funciona normal imprimindo qualquer documento pelo Windows(para informação a impressora é essa:

http://www.bematech.com.br/equipamento-produto-impressoras-mp-4200+th-funcionalidades.html#conteudo

Pelo que pude observar o problema é na linha de comando mencionada.
Open "http://192.168.x.x" For Output As #1

Alguém tem mais mais alguma dica?

Obrigada

Tatiana

Mesmo sendo WiFi tem que existir um modo de comunicação entre o computador e a impressora.

Sugiro que entre em contato com a Bematech, o telefone 0800 está na parte de baixo da página do link que passou.
Explique a situação para um TÉCNICO e não para a atendente.
Eles devem te orientar.
O código é esse mesmo. o que você precisa é saber a saída dos dados para a impressora.
Que é através de uma porta.

Abraços

Tatiana,

Como não tenho esta impressora aqui, gostaria que você testasse o arquivo que está em anexo.
Repito é só um teste que se der certo pode vir a ser uma solução.

As dlls devem estar na pasta System32 (em sistema de 32 bits)

Glicério

Vendo a página da impressora, verifiquei que teria que usar a dll da mesma.

Mas sem impressora, não tinha como testar.

Legal que você tenha feito o exemplo, espero que funcione!

Abraços

Olá pessoal,

Vou instalar estas DLL´s, pois eu já tinha feito vários testes com ip´s, caminhos etc :/

Obrigada mais uma vez, vou fazer o teste e post aqui para vocês verem o resultado

brigadinha e bom dia para vocês

Ola pessoal, meu martírio continua

Testei as Dll´s(joguei no diretorio system32), manipulei os paths (Ip´s) de tudo que é jeito.

No exemplo que o JUNGLI mandou , ele não da erro logo de cara, mas apos 1 min ele mostra esta bendita mensagem:

Erro em tempo de execução '52'
Nome ou numero de arquivo incorreto

Repetindo, quando imprimo do bloco de notas por exemplo, ela imprimi tudo OK

Respondendo a pergunta do: Balem nas configuracoes da porta da impressora, esta o ip dela..exemplo: IP_192.168....

:/ O que falta eu tentar ? já tentei entender porque ela ignora o comando..mas ta difícil

Tatiana como você informou que imprime pelo bloco de notas OK, pensei em utilizá-lo.
teste este arquivo.

A impressora deve estar definida como impressora padrão.

JUNGLI

Assim funcionou aqui, mas ele abre o notepad e fica os dados na tela
Desta forma, toda hora que imprimir um registro ele vai abrir o notepad ne?
No caso, como sera a ligação com o banco em si?(esta parte de "códigos") fiquei meio perdida..

veja como ficou.

JUNGLI

Ele abre o notepad imprimi e depois fecha é isso?

Só preciso configurar o modo como imprimir, pois sai no cabeçalho o nome do documento, e esta imprimindo tudo no centro..

Vou tentar corrigir isso..

Muitissimo obrigada

Isso mesmo!

Para tirar o cabeçalho

No Bloco de notas: Arquivo / Configurar Página
e apague os campos Cabeçalho e Rodapé.

Mude também:

Formatar / Fonte

Consolas - Regular - tamanho 7

Ola pessoal, tudo bom!?

Muito trabalho por aqui, de dia até madrugada :/

Fiz algumas adaptções e praticamente terminei...

A única coisa é que, quando ele abre o bloco de notas para impressão, ele não fecha ..

No mais, muitissimo obrigada pela ajuda e disposição de todos vocês em ensinar.

Principalmente você: JUNGLI

boa semana para vocês !!!

Boa tarde Tatiana,

obrigado pelo retorno,

olhe na linha:

FechaPrograma "teste.txt - Bloco de notas" 'Fecha a janela do bloco de notas

veja se o título no bloco de notas está igual ao que está em vermelho na linha, se não,
modifique para que a linha fique igual ao titulo do bloco de notas,

Ola JUNGLI

Estou te mandando em anexo o arquivo o.mdb do pedido e o texto que esta saindo, os campos valores não estão imprimindo(no arquivo texto mostra isso, esta anexo) e quando tento escolher a opção no pedido (uma tabela prato) ele simplesmente parou

Boas Jungli.. mais eu aqui para ter dar trabalho...
Nunca mexi com impressora não fiscal... preciso imprimir uma nota de venda para PDV...
ao totalizar a venda, pegar os dados da venda, e imprimir...
com o nome do estabelecimento, e dados da compra.

Se tiver um exemplo que possa me enviar agradeco

Abraços

Bom dia,

Tatiana, vou dar uma olhada nos arquivos depois retorno.

Hary..., precisamos saber qual impressora vais usar, tem delas que tem suas dlls próprias, outras imprimem direto na LPT1...

Um exemplo via LPT1:

Dim nPed, DtVenda, Fpag, Reg1
nPed = Me.N__Pedido
DtVenda = Me.Data_da_Venda
Fpag = Me.FPagamento
Reg1 = Me.Código_da_Venda
'cupon para impressora termica de 40 colunas
Open Nz(cboPorta) For Output Access Write As #1

Print #1, Tab(0); DLast("[Empresa]", "Empresa");
Print #1, Tab(0); DLast("[Endereço]", "Empresa");
Print #1, Tab(0); DLast("[Bairro]", "Empresa") & " - " & DLast("[Cidade]", "Empresa") & " - " & DLast("[Uf]", "Empresa");
Print #1, Tab(0); "CEP: " & DLast("[Cep]", "Empresa") & " - Fone: " & DLast("[Fone]", "Empresa")
Print #1, Tab(0); "CNPJ: " & DLast("[cgc]", "Empresa")
Print #1, Tab(0); "I.EST.: " & DLast("[Insc Estadual]", "Empresa")

Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(10); "Codigo do Pedido : " & Me.N__Pedido;
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "Data :" & Me.Data_da_Venda; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "F. Pagamento: " & Me.FPagamento
Print #1, Tab(0); "------------------------------------------------";


'cabeça do cupom do itens
Print #1, Tab(0); "Cod. "; " Item";
Print #1, Tab(0); "Qtd. "; "VL Uni."; " VL Total "
Print #1, Tab(0); "------------------------------------------------";


'selecionar itens do cupom
Dim csql As String
Set bc = CurrentDb

Set tbVendido = bc.OpenRecordset("SELECT [Cadastro de Mercadorias].Mercadoria, [Cadastro de Mercadorias].Medida, [Vendas Efetuadas].[Código da Venda], [Vendas Efetuadas].[Código da Mercadoria], [Vendas Efetuadas].Quantidade, [Vendas Efetuadas].Preço FROM [Vendas Efetuadas] INNER JOIN [Cadastro de Mercadorias] ON [Vendas Efetuadas].[Código da Mercadoria] = [Cadastro de Mercadorias].[Código da Mercadoria] WHERE ((([Vendas Efetuadas].[Código da Venda])=" & Me.Código_da_Venda & "))", dbOpenDynaset)

Do While Not tbVendido.EOF
Print #1, Tab(0); Format(tbVendido("Código da Mercadoria"), "0000000000000"); " " & Format(Left(tbVendido("Mercadoria"), 20), "@@@@@@@@@@@@@@@@@@@@");
Print #1, Tab(0); Format(tbVendido("quantidade"), "000"); " "; Format$(Format$(tbVendido("PREçO"), "#,##0.00"), "@@@@@@@@"); " "; Format$(Format$(tbVendido("preço") * tbVendido("quantidade"), "#,##0.00"), "@@@@@@@@")
tbVendido.MoveNext
Loop
tbVendido.Close
'valor total do cupom
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(30); "Total R$: "; Format$(Format$(Me.Total, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Nao Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERENCIA"
Print #1, Tab(0); "------------------------------------------------";

'comando de corte
Print #1, Chr(27) + "i"
Close #1

Boa tarde Tatiana,

Fiz algumas modificações:

criei a tabela de pratos do dia assim você fica com uma tabela para cadastrar os pratos e outra para determinar os pratos a disposição para venda no dia.

coloquei o campo de valor do prato na tabela pois o mesmo não existia.

modifiquei o form cpedido para adicionar os campos de quantidade, val. Unitario e total.

refiz o relatório do botão imprimir.

cabeçalho buscando os dados da empresa em tabela.

Testei aqui e o resultado foi satisfatório.

o arquivo do teste está em anexo.

só lembrando: a fonte do bloco de notas deve ser: consolas tamanho 7

Obrigado pela disposição em ajudar Jungli... Assim que o cliente me passar mais detalhes e eu for efetivamente entrar nesta parte, eu posto novamente aqui. Cumprimentos.

Boa tarde Jungli, o modelo da impressora:

Matricial Bematech MP 20

E para lancar dados de venda de um pdv

Dados do estabelecimento

Produto - Qiantidade - SubTotal

Ao final= Total


Como um mercado.

Cumprimentos.

Boas Jungli... alguma novidade?

Cumprimentos.

Boas Jungli... ja estou quebrando a cabeça com isto... Estou utilizando o codigo disponibilizado por voce acima:
Nesta linha em vermelho dá erro: Arquivo não localizado... será que é porque nao estou com a impressora conectada?

Cumprimentos.

Private Sub btnCupom_Click()
Dim nPed, DtVenda, Fpag
nPed = StrNumVenda
DtVenda = Format(Date, "dd/mm/yyyy")
Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
Open "LPT1:" For Output Access Write As #1
Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

'Print #1, Tab(0); "------------------------------------------------";
'Print #1, Tab(10); "Codigo do Pedido : " & Me.N__Pedido;
Print #1, Tab(0); "------------------------------------------------";
'Print #1, Tab(0); "Data :" & Me.Data_da_Venda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "F. Pagamento: " & Me.FPagamento
'Print #1, Tab(0); "------------------------------------------------";


'cabeça do cupon do items
'Print #1, Tab(0); "Cod. "; " Item";
'Print #1, Tab(0); "Qtd. "; "VL Uni."; " VL Total "
'Print #1, Tab(0); "------------------------------------------------";


'selecionar items do cupon
Dim csql As String
'Set bc = CurrentDb
'csql = "SELECT * FROM Vendas Efetuadas WHERE Código_da_Venda=" & Chr(34) & Me.Código_da_Venda & Chr(34)
'Set tbVendido = bc.OpenRecordset("SELECT [Cadastro de Mercadorias].Mercadoria, [Cadastro de Mercadorias].Medida, [Vendas Efetuadas].[Código da Venda], [Vendas Efetuadas].[Código da Mercadoria], [Vendas Efetuadas].Quantidade, [Vendas Efetuadas].Preço FROM [Vendas Efetuadas] INNER JOIN [Cadastro de Mercadorias] ON [Vendas Efetuadas].[Código da Mercadoria] = [Cadastro de Mercadorias].[Código da Mercadoria] WHERE ((([Vendas Efetuadas].[Código da Venda])=" & Me.Código_da_Venda & "))", dbOpenDynaset)

'Do While Not tbVendido.EOF
'Print #1, Tab(0); Format(tbVendido("Código da Mercadoria"), "0000000000000"); " " & _
'Format(Left(tbVendido("Mercadoria"), 20), "@@@@@@@@@@@@@@@@@@@@");
'Print #1, Tab(0); Format(tbVendido("quantidade"), "000"); " "; Format$(Format$(tbVendido("PREçO"), "#,##0.00"), "@@@@@@@@"); _
'" "; Format$(Format$(tbVendido("preço") * tbVendido("quantidade"), "#,##0.00"), "@@@@@@@@")


'tbVendido.MoveNext
'Loop
tbVendido.Close
'valor total do cupon
'Print #1, Tab(0); "------------------------------------------------";
'Print #1, Tab(30); "Total R$: "; Format$(Format$(Me.Texto136, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
'Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
'Print #1, Tab(10); " "
'Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
'Print #1, Tab(0); "------------------------------------------------";
'Print #1, Tab(0); "Scef 3.2.1" + " "; "- Glicerio.junior@hotmail.com"
'Print #1, Tab(0); "------------------------------------------------";

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
End Sub

Boa tarde Hary...

Sim o procedimento está procurando a impressora na LPT1 e não está achando.

Para testes podes utilizar um arquivo de texto!

ex.:
você cria um arquivo de texto pelo notepad com o nome de Cupom.txt na unidade C: por exemplo.

e no lugar de chamar a LPT1 chama o arquivo.

Open "C:\Cupom.txt" For Output Access Write As #1
quando estiver com a impressora em mãos muda para LPT1 e testa.

Abraços.

Beleza.. qualquer coisa dou notícias.

Abraços.

Boas Jungli... uma questão..

Nesta linha

Print #1, Tab(0); Format(Rs!Sigla, "@@"); " "; Format(Left(Rs!Descricao, 20), "@@@@@@@@@@@@@@@@@@@@"); " " & _
Format(Rs!CodigoBarras, "0000000000000");

A instrução >>> Format(Left(Rs!Descricao, 20), "@@@@@@@@@@@@@@@@@@@@")

Pega os 20 primeiros carcteres do Rs!Descricao.... até ai tudo bem

Ocorre que se eu adiciono para retornar mais tipo 30 caracteres ele me aumente o espaco
ente o Rs!Sigla e o Rs!Descrição

Como funciona isso?

Cumprimentos.

Boas Jungli, so falta testar na impressora, ficou assim:

Nesse código tenho alguns tipos de pagamento diferentes portanto o rodapé do cumpo é diferente dependendo de cada tipo
para isso o comando Goto Rítulo.... faz essa diferenciação.

Código:


Sub Cupom()
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = StrNumVenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "F. Pagamento: " & Fpag
Print #1, Tab(0); "------------------------------------------------";


'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "        Und  "; "  Pco.Unit."; " Qtd./Peso "; "  Vlr.Total "
Print #1, Tab(0); "------------------------------------------------";


'selecionar items do cupon
Dim StrSQL As String
Dim Rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT tblProdutos.Codigo, tblVendas.CodigoBarras, tblProdutos.Descricao, tblUnidadeMed.Sigla," _
        & "tblVendas.Qtde, tblVendas.PrecoUnitario, tblVendas.SubTotal" _
        & " FROM tblUnidadeMed INNER JOIN (tblProdutos INNER JOIN tblVendas" _
        & " ON tblProdutos.CodigoBarras = tblVendas.CodigoBarras)" _
        & " ON tblUnidadeMed.CodigoUnidadeMedida = tblProdutos.CodigoUnidadeMedida;"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordser com a SQL
Set Rs = CurrentDb.OpenRecordset(StrSQL)


Do While Not Rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Format(Left(Rs!Descricao, 20), "@@@@@@@@@@@@@@@@@@@@"); "(Cod.:" & _
Format(Rs!CodigoBarras, "0000000000000"); ")"
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); "        "; Format(Rs!Sigla, "@@"); "  "; Format$(Format$(Rs!PrecoUnitario, "#,##0.00"), "@@@@@@@@"); _
"      "; ; Format(Rs!Qtde, "000"); "    "; Format$(Format$(Rs!subtotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); ""

Rs.MoveNext
Loop
Rs.Close
  'Caso venda Fracionada vai para RodapeVendaFracionada
  If Me.TipoPgto = 3 Then GoTo RodapeVendaFracionada
  'Caso venda Fracionada vai para RodapeCartãoTicket
  If StrTipoPgto = "Cartão" Or StrTipoPgto = "Ticket" Then GoTo RodapeCartãoTicket
 
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(21); "Qtd. Itens        : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(21); "Total Cumpom    R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Dinheiro        R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Troco          R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); "------------------------------------------------";

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub

RodapeVendaFracionada:
'Caso a venda seja fracionada e a diferença em cartão ou ticket
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(21); "Qtd. Itens        : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(21); "Total Cumpom    R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Dinheiro        R$: "; Format$(Format$(Me.Dinheiro1, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "" & StrTipoFrac & "          R$: "; Format$(Format$(Me.txtCartao, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); "------------------------------------------------";

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub

RodapeCartãoTicket:
'Caso a venda seja em cartão ou ticket
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(21); "Qtd. Itens        : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(21); "Total Cumpom    R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "" & StrTipoPgto & "          R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Troco          R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); "------------------------------------------------";

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub
End Sub


Assim que testar na impressora, dou retorno.

Obrigado.

Bom dia, Hary...

Vi que já resolveu a questão dos 30 carcteres, então vamos adiante.

observei que seu cupom está formatado com mais de 40 posições ou colunas (provavelmente vais ter problemas), com as impressoras que já trabalhei a melhor formatação ficou a de 40 posições ou colunas, muitas nem aceitam mais que esta quantidade.

digamos que
_____________30 posições _______|___20 posições_____
123456789101234567891012345678|(Cod.:0001234567890) = 50 posições o cupom aqui presente tem o formato de 40 posições ou colunas.

fiz uma pequena modificação no seu código, não testei por falta das tabelas, qualquer coisa me avise.


Sub Cupom()
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = StrNumVenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "F. Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");


'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");


'selecionar items do cupon
Dim StrSQL As String
Dim Rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT tblProdutos.Codigo, tblVendas.CodigoBarras, tblProdutos.Descricao, tblUnidadeMed.Sigla," _
& "tblVendas.Qtde, tblVendas.PrecoUnitario, tblVendas.SubTotal" _
& " FROM tblUnidadeMed INNER JOIN (tblProdutos INNER JOIN tblVendas" _
& " ON tblProdutos.CodigoBarras = tblVendas.CodigoBarras)" _
& " ON tblUnidadeMed.CodigoUnidadeMedida = tblProdutos.CodigoUnidadeMedida;"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordser com a SQL
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(Rs!Descricao, 24); " "; "(" & Format(Rs!CodigoBarras, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); Format(Rs!Sigla, "@@"); " "; Format$(Format$(Rs!PrecoUnitario, "#,##0.00"), "@@@@@@@@"); _
" "; Format(Rs!Qtde, "000"); " "; Format$(Format$(Rs!subtotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(0); ""
Rs.MoveNext
Loop
'Fecha o recorset
Rs.Close
'Caso venda Fracionada vai para RodapeVendaFracionada
If Me.TipoPgto = 3 Then GoTo RodapeVendaFracionada
'Caso venda Fracionada vai para RodapeCartãoTicket
If StrTipoPgto = "Cartão" Or StrTipoPgto = "Ticket" Then GoTo RodapeCartãoTicket

'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(21); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(21); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab(5); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab(5); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); String(40, "-");

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub

RodapeVendaFracionada:
'Caso a venda seja fracionada e a diferença em cartão ou ticket
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(21); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(21); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro1, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "" & StrTipoFrac & " R$: "; Format$(Format$(Me.txtCartao, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); String(40, "-");

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub

RodapeCartãoTicket:
'Caso a venda seja em cartão ou ticket
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(21); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(21); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "" & StrTipoPgto & " R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(21); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); String(40, "-");

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub
End Sub


Abraços ...

Boas Jungli.... com pequena modificação apenas na tabulação dos rodapés:

Código:


Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = StrNumVenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "F. Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");


'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");


'selecionar items do cupon
Dim StrSQL As String
Dim Rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT tblProdutos.Codigo, tblVendas.CodigoBarras, tblProdutos.Descricao, tblUnidadeMed.Sigla," _
& "tblVendas.Qtde, tblVendas.PrecoUnitario, tblVendas.SubTotal" _
& " FROM tblUnidadeMed INNER JOIN (tblProdutos INNER JOIN tblVendas" _
& " ON tblProdutos.CodigoBarras = tblVendas.CodigoBarras)" _
& " ON tblUnidadeMed.CodigoUnidadeMedida = tblProdutos.CodigoUnidadeMedida;"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordser com a SQL
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(Rs!Descricao, 24); " "; "(" & Format(Rs!CodigoBarras, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); Format(Rs!Sigla, "@@"); " "; Format$(Format$(Rs!PrecoUnitario, "#,##0.00"), "@@@@@@@@"); _
" "; Format(Rs!Qtde, "000"); " "; Format$(Format$(Rs!subtotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(0); ""
Rs.MoveNext
Loop
'Fecha o recorset
Rs.Close
'Caso venda Fracionada vai para RodapeVendaFracionada
If Me.TipoPgto = 3 Then GoTo RodapeVendaFracionada
'Caso venda Fracionada vai para RodapeCartãoTicket
If StrTipoPgto = "Cartão" Or StrTipoPgto = "Ticket" Then GoTo RodapeCartãoTicket

'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(16); "Qtd. Itens    : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(16); "Dinheiro    R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(16); "Troco        R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab(5); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab(5); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); String(40, "-");

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub

RodapeVendaFracionada:
'Caso a venda seja fracionada e a diferença em cartão ou ticket
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(16); "Qtd. Itens    : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(16); "Dinheiro    R$: "; Format$(Format$(Me.Dinheiro1, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(16); "" & StrTipoFrac & " R$: "; Format$(Format$(Me.txtCartao, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); String(40, "-");

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub

RodapeCartãoTicket:
'Caso a venda seja em cartão ou ticket
'Caso venda normal a vista
'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(16); "Qtd. Itens    : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(16); "" & StrTipoPgto & " R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(16); "Troco        R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "SysPDV - Versão 1.0.0 - Venda" + " ";
Print #1, Tab(0); String(40, "-");

'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
Exit Sub
End Sub

Depois de testar na impressora retorno.

Abraços.

Boa tarde,

Hary...

uma implementação de última hora:
Para centralizar as mensagens do rodapé

'mensagem de no rodape do cupom
Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"

Boas Jungli.. e para centralizar os dados da empresa?

Grato.

é só trocar os valores. só que o nome tem que ter no máximo os 40 caracteres.

Boas Jungli, apliquei a rotirna, ela é executada completalmente sem erros, porem a impressora.. Nada.. nao da nem sinal

O que poderia ser?

Hary você fez a instalação da impressora?

O arquivo anexo não é de minha autoria, encontrei na internet, créditos no arquivo.

E aí Hary... conseguiu?

Boa Jungli passei o PDF que me enviou para o cliente... ele vai fazer o teste hoje.. Parece que o problema é realmente ou com a Lpt1 ou a instalação da impressora. Assim que ele me falar te dou retorno.

Abraços.

Perfect Jungli!!!



Obrigado.

Boa!
Fico Feliz em ajudar!