Impressão cupom não fiscal

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.

Exemplo:



Dim bc As DAO.Database
Dim tbVendido As DAO.Recordset
'selecionar items do cupom
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

JUNGLI, esta dando uns erros que não consigo detectar, tenho pouco conh. em VBA,
Sou grato pela sua atenção

Você pode disponibilizar o banco de dados com as tabelas da consulta, e o formulário com o código que está utilizando, ficaria mais fácil de ajudá-lo.

Ao iniciar o banco abrira o tela do caixa, clique no botão nova venda.
Selecione um produto na Descrição l após estas etapas clique no botão - F11 Imprimir Pedidos , vai da o erro nesta etapa, ai que o bicho esta pegando, meu conhecimento em VBA é muito pouco.
Agradeço sua atenção.

Tente assim,


'selecionar items do cupom
Dim bc As DAO.Database
Dim saidadetalhe As DAO.Recordset
Set bc = CurrentDb
'------------------------
Set saidadetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra, Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade, SaidaDetalhe.SaidaValorVenda " & _
"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![SaidaNumero], "0000000000000"); " " & _
Format(Left(saidadetalhe![ProdutoDescricao], 20), "@@@@@@@@@@@@@@@@@@@@");
Print #1, Tab(0); Format(saidadetalhe![SaidaQuantidade], "000"); " "; Format$(Format$(saidadetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@@"); _
" "; Format$(Format$(saidadetalhe![SaidaValorVenda] * saidadetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@")

saidadetalhe.MoveNext
Loop
saidadetalhe.Close

Não testei pois aqui no serviço não tenho impressora na LPT1, aguardo retorno.

JUNGLI, deu certo, muito bom mesmo.

Só lhe peço mais uma ajuda; No nome do Cliente, Operador e o Tipo de Pagamento ao invés de informar o número, informar o nome dos mesmos(abaixo do rótulo CONTROLE INTERNO)

Sou muito grato pela sua atenção.
Que DEUS ilumine seus caminhos

Boa tarde,

Alguém sabe como manipular a fonte, tipo aumentar o tamanho, e textos em negrito, usando com o printf do visual??