[Resolvido]Impressão de Cupom não fiscal

Bom dia Pessoal.

Estou com um problema que não estou conseguindo resolver e gostaria muito da ajuda e apoio de vocês.

E o seguinte:

1) tenho uma consulta que busca os dados para a impressão do cupom.

SELECT VENDAS_CARTAO.COD_CARTAO_VENDA, VENDAS_CARTAO.CUPOM_VENDA_CARTAO, VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL, VENDAS_CARTAO.HORA_VENDA_GERAL
FROM VENDAS_CARTAO INNER JOIN PRODUTO ON VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA = PRODUTO.COD_PRODUTO;


2) Fiz um VBA para imprimir este cupom:

Dim nPed, dtVenda, Fpag
'Variável para o número da venda
nPed = Me.CupomVenda
'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); "CRB-CLUBE RECREATIVO BARROSENSE"
Print #1, Tab(0); "Av. Pref.Genesio Graçano " & " 360" & " - " & "Iramãos Pinto";
Print #1, Tab(0); "BARROSO" & " - " & "MG"; " Cep: " & "36.212-000";
Print #1, Tab(0); "Tel: " & "3351-0000";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Nº CUPOM : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & dtVenda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "Forma 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 VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL,VALOR_VENDA_GERAL, DATA_VENDA_GERAL"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordset 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!COD_PRODUTO_CARTAO_VENDA, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); " "; Format$(Format$(rs!VALOR_VENDA_GERAL, "#,##0.00"), "@@@@@@@@"); _
" "; Format(rs!QUANT_VENDAS, "000"); " "; Format$(Format$(rs!QUANT_VENDAS, "###000") * (Format$(rs!VALOR_VENDA_GERAL, "#,##0.00")), "@@@@@@@@")
Print #1, Tab(0); ""
rs.MoveNext
Loop
'Fecha o recorset
rs.Close
'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((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"
Print #1, Tab(0); String(40, "-");
Print #1, Tab((40 - Len("ConsumoCard - Versão 1.0.0 - Venda")) / 2); "ConsumoCard - Versão 1.0.0 - Venda";
'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
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

3) Esta dando um erro assim:

Erro em tempo de execução 3061
parâmetros insuficientes. Eram esperados 7

Ai para nesta instrução:
Set rs = CurrentDb.OpenRecordset(StrSQL)


Obrigado pelo apoio de todos


Gutenbergue

Gutembergue


Coloque a SQL na consulta e verifique está funfando.


Aguardo...

Bom dia Noobezinho.

Esta errado mesmo.

Segue a correta:

SELECT VENDAS_CARTAO.COD_CARTAO_VENDA, VENDAS_CARTAO.CUPOM_VENDA_CARTAO, VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL, VENDAS_CARTAO.HORA_VENDA_GERAL FROM VENDAS_CARTAO INNER JOIN PRODUTO ON VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA = PRODUTO.COD_PRODUTO;


Como eu faço para adequar conseguir adequar aqui:

'Instrução SQL para uso no recordset
StrSQL = "SELECT VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL,VALOR_VENDA_GERAL, DATA_VENDA_GERAL"


Obrigado


Gutenbergue

Experimente:

Código:


StrSQL = "SELECT VENDAS_CARTAO.COD_CARTAO_VENDA, VENDAS_CARTAO.CUPOM_VENDA_CARTAO, " & _
              "VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, "  & _
              "VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL, " & _
              "VENDAS_CARTAO.HORA_VENDA_GERAL FROM  VENDAS_CARTAO INNER JOIN PRODUTO ON " & _            
              "VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA = PRODUTO.COD_PRODUTO"



Bom dia Noobezinho.

Obrigado pelo apoio e orientações técnicas. Você é um excelente profissional!!!

Consegui fazer meu cupom.


Abraços


Gutenbergue

Que ótimo!

Valeu pelo retorno!

Boa sorte!