Bom dia a todos
Recorro aos amigos do fórum para solicitar mais uma ajuda.
Estou criando um cupom não fiscal para impressão direto para a porta LPT1 e estou com dificuldades de imprimir os dados da venda.
Estou usando o seguinte código VBA.
Private Sub Comando220_Click()
Dim saida, SaidaData, TipoPg
saida = Forms![fmrcaixarapido]!SaidaNumero
saida = Forms![fmrcaixarapido]!SaidaVendedor
'frmgradecaixarapido = Forms![frmgradecaixarapido]!SaidaValorVenda
'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); "-----------------------------------------------------------";
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); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
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); "----------------------------------------------------------";
Print #1, Tab(0); " "
'Print #1, Tab(0); "Vlr. Unit. : "; Format$(Format$(saidadetalhe.Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
'Print #1, Tab(0); "Quant. : "; Format$(Format$([saidadetalhe].Me.SaidaQuantidade, "#,##0.00"), "@@@@@@@@");
'Print #1, Tab(0); "Valor : "; Format$(Format$([saidadetalhe].Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
Print #1, Tab(0); " "
'cabeça do cupon do items
Print #1, Tab(0); " Quant. Descr.Produto Unit. Desc. SubTotal ";
Print #1, Tab(0); "---------------------------------------------------------";
'selecionar items do cupon
'aqui vai as unstruções do cupom(Detalhes da venda)
'valor total do cupon
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(0); " "
'Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Carne NRO : "; Format$(Format$(Me.[id], "00000"), "@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
Print #1, Tab(0); " "
Print #1, Tab(5); " VOCE CLIENTE E IMPORTANTE PARA NOS"
Print #1, Tab(5); " OBRIGADO PELA PREFERENCIA, VOLTE SEMPRE"
Print #1, Tab(0); "---------------------------------------------------------";
Print #1, Tab(0); "Teste cupom + " "; " Loja 01"
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
Como devo proceder para buscar os campos dos itens do cupom, tenho a seguinte consulta que funciona na impressão com o relatório do Access
SELECT Saida.SaidaCliente, Saida.SaidaNumero, Saida.SaidaData, tblClientes.Nome, SaidaDetalhe.SaidaQuantidade, Produtos.ProdutoDescricao, Medidas.MedidasDescricao, SaidaDetalhe.SaidaValorVenda, SaidaDetalhe.VlrDesconto, tblClientes.Endereço, tblClientes.Numero, Bairro.BairroDescricao, tblClientes.Telefone, Cidade.CidadeDescricao, Produtos.ProdutoCodigo, [_EMPRESA].NomeEmpresa, [_EMPRESA].Endereço, [_EMPRESA].Fone, [_EMPRESA].Logo, Vendedor.Nome, TipoPg.PgDescricao, SaidaDetalhe.DesPorc, SaidaDetalhe.DescGrade, [_EMPRESA].Endereço, Vendedor.Nome
FROM _EMPRESA, (Cidade INNER JOIN (Bairro INNER JOIN tblClientes ON Bairro.BairroID = tblClientes.Bairro) ON Cidade.CidadeID = tblClientes.Cidade) INNER JOIN ((Medidas INNER JOIN Produtos ON Medidas.MedidasCodigo = Produtos.ProdutoUnidadedeMedidaNumeto) INNER JOIN ((TipoPg INNER JOIN (Vendedor INNER JOIN Saida ON Vendedor.Codigo_Cliente = Saida.SaidaVendedor) ON TipoPg.TipoPg = Saida.SaidaPg) INNER JOIN SaidaDetalhe ON Saida.SaidaNumero = SaidaDetalhe.SaidaNumero) ON Produtos.ProdutoCodigo = SaidaDetalhe.SaidaProduto) ON tblClientes.Codigo_Cliente = Saida.SaidaCliente;
Agradeço a atenção de todos.
Recorro aos amigos do fórum para solicitar mais uma ajuda.
Estou criando um cupom não fiscal para impressão direto para a porta LPT1 e estou com dificuldades de imprimir os dados da venda.
Estou usando o seguinte código VBA.
Private Sub Comando220_Click()
Dim saida, SaidaData, TipoPg
saida = Forms![fmrcaixarapido]!SaidaNumero
saida = Forms![fmrcaixarapido]!SaidaVendedor
'frmgradecaixarapido = Forms![frmgradecaixarapido]!SaidaValorVenda
'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); "-----------------------------------------------------------";
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); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
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); "----------------------------------------------------------";
Print #1, Tab(0); " "
'Print #1, Tab(0); "Vlr. Unit. : "; Format$(Format$(saidadetalhe.Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
'Print #1, Tab(0); "Quant. : "; Format$(Format$([saidadetalhe].Me.SaidaQuantidade, "#,##0.00"), "@@@@@@@@");
'Print #1, Tab(0); "Valor : "; Format$(Format$([saidadetalhe].Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
Print #1, Tab(0); " "
'cabeça do cupon do items
Print #1, Tab(0); " Quant. Descr.Produto Unit. Desc. SubTotal ";
Print #1, Tab(0); "---------------------------------------------------------";
'selecionar items do cupon
'aqui vai as unstruções do cupom(Detalhes da venda)
'valor total do cupon
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(0); " "
'Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Carne NRO : "; Format$(Format$(Me.[id], "00000"), "@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
Print #1, Tab(0); " "
Print #1, Tab(5); " VOCE CLIENTE E IMPORTANTE PARA NOS"
Print #1, Tab(5); " OBRIGADO PELA PREFERENCIA, VOLTE SEMPRE"
Print #1, Tab(0); "---------------------------------------------------------";
Print #1, Tab(0); "Teste cupom + " "; " Loja 01"
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
Como devo proceder para buscar os campos dos itens do cupom, tenho a seguinte consulta que funciona na impressão com o relatório do Access
SELECT Saida.SaidaCliente, Saida.SaidaNumero, Saida.SaidaData, tblClientes.Nome, SaidaDetalhe.SaidaQuantidade, Produtos.ProdutoDescricao, Medidas.MedidasDescricao, SaidaDetalhe.SaidaValorVenda, SaidaDetalhe.VlrDesconto, tblClientes.Endereço, tblClientes.Numero, Bairro.BairroDescricao, tblClientes.Telefone, Cidade.CidadeDescricao, Produtos.ProdutoCodigo, [_EMPRESA].NomeEmpresa, [_EMPRESA].Endereço, [_EMPRESA].Fone, [_EMPRESA].Logo, Vendedor.Nome, TipoPg.PgDescricao, SaidaDetalhe.DesPorc, SaidaDetalhe.DescGrade, [_EMPRESA].Endereço, Vendedor.Nome
FROM _EMPRESA, (Cidade INNER JOIN (Bairro INNER JOIN tblClientes ON Bairro.BairroID = tblClientes.Bairro) ON Cidade.CidadeID = tblClientes.Cidade) INNER JOIN ((Medidas INNER JOIN Produtos ON Medidas.MedidasCodigo = Produtos.ProdutoUnidadedeMedidaNumeto) INNER JOIN ((TipoPg INNER JOIN (Vendedor INNER JOIN Saida ON Vendedor.Codigo_Cliente = Saida.SaidaVendedor) ON TipoPg.TipoPg = Saida.SaidaPg) INNER JOIN SaidaDetalhe ON Saida.SaidaNumero = SaidaDetalhe.SaidaNumero) ON Produtos.ProdutoCodigo = SaidaDetalhe.SaidaProduto) ON tblClientes.Codigo_Cliente = Saida.SaidaCliente;
Agradeço a atenção de todos.