[Resolvido]Somatória em Cupom não fiscal

Boa tarde a todos.
Volta a pedir ajuda aos amigos do Fórum que é o seguinte

Tenho o código abaixo para emitir cupom não fiscal em uma impressora Epson LX300.

Private Sub Comando219_Click()
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![fmrcaixarapido]!SaidaNumero
PgDescricao = Forms![fmrcaixarapido]!SaidaPg
Nome = Forms![fmrcaixarapido]!SaidaVendedor
Nome = Forms![fmrcaixarapido]!SaidaCliente
'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
Print #1, Tab(0); "Bairro: Centro - CEP:60.500-000";
Print #1, Tab(0); "Cidade: SÃO PAULO - SP";
Print #1, Tab(0); "Tel:(18)3013-0000";
'Print #1, Tab(0); "--------------------------------------------------";
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "--------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; Me!SaidaCliente
Print #1, Tab(0); " Operador - "; Me!SaidaVendedor
Print #1, Tab(0); " Tipo do Pagamento - "; Me!SaidaPg
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "--------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. Desc. SubTotal";
Print #1, Tab(0); "--------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
'Dim SaidaDetalhe As DAO.Recordset
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)

Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "0000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 23), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop
'_______________________________________________________
'valor total do cupon


Print #1, Tab(0); "--------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); "Nao vale como documento fiscal-Controle interno"
Print #1, Tab(0); " "
Print #1, Tab(1); " VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
Print #1, Tab(0); "Fenix-Tecnologia Versao 2.1" + " "; "20120429"
Print #1, Tab(0); "---------------------------------------------------" & Chr(18);
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "

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

Adaptei para minhas necessidades de um exemplo dos amigos do Fórum.
Não estou conseguindo somar o valor total do cupom, alguém poderia me ajudar.
Sou grato pela atenção.

Poderia criar uma variável... e ao executar o loop ir somando os valores na mesma..

Algo assim..

No inicio do código:

Dim StrValorTot as Double



StrValorTot = 0

Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "0000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 23), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _

StrValorTot Format$(StrValorTot, "#,##0.00")


Algo Por ai...

e essa variável aplique na totalização do cumpom


Cumprimentos.

Piloto, não deu certo da uns erros que não consegui entender.

StrValorTot = Format$(StrValorTot, "#,##0.00")

Não havia colocado o sinal de igualdade.


Quais erros deu amigão?


Cumprimentos.

O código ficou desta maneira, da uma depurada para vc ver o erro,

sou grato pela sua atenção

Private Sub Comando219_Click()
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![fmrcaixarapido]!SaidaNumero
PgDescricao = Forms![fmrcaixarapido]!SaidaPg
Nome = Forms![fmrcaixarapido]!SaidaVendedor
Nome = Forms![fmrcaixarapido]!SaidaCliente
Dim StrValorTot As Double

'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
Print #1, Tab(0); "Bairro: Centro - CEP:19.500-000";
Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
Print #1, Tab(0); "Tel:(18)3275-0000";
'Print #1, Tab(0); "--------------------------------------------------";
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "--------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; Me!SaidaCliente
Print #1, Tab(0); " Operador - "; Me!SaidaVendedor
Print #1, Tab(0); " Tipo do Pagamento - "; Me!SaidaPg
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "--------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. Desc. SubTotal";
Print #1, Tab(0); "--------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
'Dim SaidaDetalhe As DAO.Recordset
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)

Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "0000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 23), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop

'_______________________________________________________
'valor total do cupon
StrValorTot = 0

Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "0000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 23), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _

StrValorTot = Format$(StrValorTot, "#,##0.00")

Print #1, Tab(0); "--------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); "Nao vale como documento fiscal-Controle interno"
Print #1, Tab(0); " "
Print #1, Tab(1); " VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
Print #1, Tab(0); "Fenix-Tecnologia Versao 2.1" + " "; "20120429"
Print #1, Tab(0); "---------------------------------------------------" & Chr(18);
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'comando de corte
Print #1, Chr(27) + "i"
Close #1
Exit Sub
End Sub

Private Sub Comando219_Click()
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![fmrcaixarapido]!SaidaNumero
PgDescricao = Forms![fmrcaixarapido]!SaidaPg
Nome = Forms![fmrcaixarapido]!SaidaVendedor
Nome = Forms![fmrcaixarapido]!SaidaCliente
Dim StrValorTot As Double

'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
Print #1, Tab(0); "Bairro: Centro - CEP:19.500-000";
Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
Print #1, Tab(0); "Tel:(18)3275-0000";
'Print #1, Tab(0); "--------------------------------------------------";
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "--------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; Me!SaidaCliente
Print #1, Tab(0); " Operador - "; Me!SaidaVendedor
Print #1, Tab(0); " Tipo do Pagamento - "; Me!SaidaPg
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "--------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. Desc. SubTotal";
Print #1, Tab(0); "--------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
'Dim SaidaDetalhe As DAO.Recordset
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)

StrValorTot = 0


Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "0000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 23), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop

'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

Print #1, Tab(0); "--------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); "Nao vale como documento fiscal-Controle interno"
Print #1, Tab(0); " "
Print #1, Tab(1); " VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
Print #1, Tab(0); "Fenix-Tecnologia Versao 2.1" + " "; "20120429"
Print #1, Tab(0); "---------------------------------------------------" & Chr(18);
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "

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



Cumprimentos.

Piloto, os errs esta tudo acertado só a soma que esta dando errado, da uma olhada na imagem do cupom.
Obs*.O valor sempre sai o mesmo
Sou muito grato pela atenção

Sim... é que esta a somar o valor unitário

Private Sub Comando219_Click()
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![fmrcaixarapido]!SaidaNumero
PgDescricao = Forms![fmrcaixarapido]!SaidaPg
Nome = Forms![fmrcaixarapido]!SaidaVendedor
Nome = Forms![fmrcaixarapido]!SaidaCliente
Dim StrValorTot As Double

'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
Print #1, Tab(0); "Bairro: Centro - CEP:19.500-000";
Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
Print #1, Tab(0); "Tel:(18)3275-0000";
'Print #1, Tab(0); "--------------------------------------------------";
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "--------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; Me!SaidaCliente
Print #1, Tab(0); " Operador - "; Me!SaidaVendedor
Print #1, Tab(0); " Tipo do Pagamento - "; Me!SaidaPg
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "--------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. Desc. SubTotal";
Print #1, Tab(0); "--------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
'Dim SaidaDetalhe As DAO.Recordset
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)

StrValorTot = 0


Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "0000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 23), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00")
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop

'valor total do cupon
Print #1, Tab(0); String(40, "-");
Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

Print #1, Tab(0); "--------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); "Nao vale como documento fiscal-Controle interno"
Print #1, Tab(0); " "
Print #1, Tab(1); " VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
Print #1, Tab(0); "Fenix-Tecnologia Versao 2.1" + " "; "20120429"
Print #1, Tab(0); "---------------------------------------------------" & Chr(18);
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "

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

Piloto, agora esta dando um erro neste script

StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00")

De uma olhada na imagem

Perdoe-me o lapso...

Substitua esta linha por esta:


StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade] - SaidaDetalhe![VlrDesconto]

Heee Piloto muito bom, não abusando da sua boa vontade em passar conhecimentos.
Como eu troco estes dois campos de número para a descrição.

Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![fmrcaixarapido]!SaidaNumero
PgDescricao = Forms![fmrcaixarapido]!SaidaPg
Nome = Forms![fmrcaixarapido]!SaidaVendedor
Nome = Forms![fmrcaixarapido]!SaidaCliente
Dim StrValorTot As Double

'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
Print #1, Tab(0); "Bairro: Centro - CEP:19.500-000";
Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
Print #1, Tab(0); "Tel:(18)3275-0000";
'Print #1, Tab(0); "--------------------------------------------------";
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "--------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; Me!SaidaCliente
Print #1, Tab(0); " Operador - "; Me!SaidaVendedor
Print #1, Tab(0); " Tipo do Pagamento - "; Me!SaidaPg

De uma olhada na imagem do cupom acima

Sou muito grato

Não veio a imagem amigão, reenvie por gentileza e detalhe a tua necessidade.

Cumprimentos.

Ploto, ai esta o exemplo.
Spu grato pela atenção

Esses Números são da ID dos respectivos campos?
ou seja, são a chave estrangeira da tabela no relacionamento?

Ex:

tblCliente
Cliente: Fulano de tal
Código: 1

tblVendas:
CodigoCLiente: 1

Este 1 é o mesmo que o acima em vermelho?


Cumprimentos

Piloto, ai esta as Propriedade da Origem das linha.

este é o do cliente.( Cliente - 1 )
SELECT tblClientes.Codigo_Cliente, tblClientes.Nome, tblClientes.bloqueiocliente, tblClientes.ExcluirCliente, tblClientes.Codigo_Cliente FROM tblClientes WHERE (((tblClientes.Codigo_Cliente)<>1) AND ((tblClientes.Nome)>" ") AND ((tblClientes.ExcluirCliente)=No)) ORDER BY tblClientes.Nome;
_____________________
Este é o do Operado. (Operador - 1 )
SELECT Vendedor.Codigo_Cliente, Vendedor.Nome, Vendedor.ExcluirVendedor FROM Vendedor WHERE (((Vendedor.Nome)>" ") AND ((Vendedor.ExcluirVendedor)=No));

_____________________
Este é o Tipo do Pagamento. (Tipo do Pagamento - 1)
SELECT TipoPg.TipoPg, TipoPg.PgDescricao FROM TipoPg WHERE (((TipoPg.PgDescricao)>" "));

estes campos são da Origem da Lina

Sou grato

Amigão.. se esses numeros são os respectivos códigos do registro correspondente pode utilizar o Dlookup

Print #1, Tab(0); " Cliente - "; DLookup("NomeCliene","SuaTabela", "CampoCódigo =" & Me!SaidaCliente & "")

Da mesma forma para os demais, mudando logicamente o nome da tabela e o campo de pesquisa...onde ficam os nomes a serem pesquisados.


Cumprimentos

Piloto, pessoas com você engrandece este Fórum.
Assumiu meu Help e foi até o final.
Meus parabéns, você é o cara.

Sou mito grato pela sua atenção.
Grande abraço e que DEUS ilumine seus caminhos.

Ficou desta maneira a impressão do Cupom não Fiscal.


Private Sub ImprCupom_Click()
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![fmrcaixarapido]!SaidaNumero
PgDescricao = Forms![fmrcaixarapido]!SaidaPg
Nome = Forms![fmrcaixarapido]!SaidaVendedor
Nome = Forms![fmrcaixarapido]!SaidaCliente
Dim StrValorTot As Double
'Dim StrValorDesconto As Double
'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
Print #1, Tab(0); "Bairro: Centro - CEP:19.500-000";
Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
Print #1, Tab(0); "Tel:(18)3275-0000";
Print #1, Tab(0); "-------------------------------------------------";
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "-------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; DLookup("Nome", "tblClientes", "Codigo_Cliente =" & Me!SaidaCliente & "")
Print #1, Tab(0); " Operador - "; DLookup("Nome", "Vendedor", "Codigo_Cliente =" & Me!SaidaVendedor & "")
Print #1, Tab(0); " Tipo do Pagamento - "; DLookup("PgDescricao", "TipoPg", "TipoPg =" & Me!SaidaPg & "")
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "-------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. Desc. SubTotal";
Print #1, Tab(0); "-------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
'Dim SaidaDetalhe As DAO.Recordset
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorTot = 0
'StrValorDesconto = 0
Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "00000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "0000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 28), "@@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(SaidaDetalhe![VlrDesconto], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@") - SaidaDetalhe![VlrDesconto], "#,##0.00"),
StrValorTot = StrValorTot + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade] - SaidaDetalhe![VlrDesconto]
'StrValorDesconto = StrValorDesconto SaidaDetalhe![VlrDesconto]
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop
'valor total do cupon
Print #1, Tab(0); String(47, "-");
Print #1, Tab(16); "Total Desc. R$: "; Format$(Format$(StrValorDesconto, "#,##0.00"), "@@@@@@@@@@@")
Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@@@@@@")
Print #1, Tab(0); String(47, "-");
'Print #1, Tab(0); "-------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); "Nao vale como documento fiscal"
Print #1, Tab(0); " Controle interno "
Print #1, Tab(1); " VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
Print #1, Tab(0); "NOME DO DESENVOLVEDOR Versao 2.1" + " "; "20120721"
Print #1, Tab(0); "--------------------------------------------------" & Chr(18);
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
'comando de corte
Print #1, Chr(27) + "i"
Close #1
End Sub

Assim como voçê amigão eu tambem ja fui muito ajudado aqui no forum. Espero você poder sempre compartilhar vosso conhecimento com os demais.

Ajudar foi o meu maior aprendizado.





O Fórum agradece o Retorno.