[Resolvido]Impressão Direta - Critério

Bom dia

Como posso colocar um critério numa impressão direta.

Por Exemplo:

Como uns ja sabem desenvolvi com ajuda dos colegas um programa de geração de carnê de prestação, ele gera o cupom de compra, o carnê, tudo sem problema, só gostaria de saber como posso fazer para ele imprimir somente o comprovante de pagamento da parcela que esta sendo paga.

Tem como colocar um critério junto na impressão ou fazer direto na consulta.

Poste o código que está usando para termos uma melhor ideia da necessidade. É sempre muito útil para entendermos sem a necessidade de muitos posts para perguntar os detalhes.

Conforme pedido este é o código:

Private Sub Comando363_Click()
Dim nPed, DtVenda, Fpag, Reg1
nPed = Forms![fvenda]!VendaID
DtVenda = Forms![fvenda]!VendaData
'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); " BAZAR TIO MILA" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 1580";
Print #1, Tab(0); "Bairro: Centro - CEP: 95870-000";
Print #1, Tab(0); "Cidade: Bom Retiro do Sul - RS";
Print #1, Tab(0); "Tel: (51) - 3766-1354";
Print #1, Tab(0); " "
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(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CARNE DE PAGAMENTO" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); " "
Print #1, Tab(0); "Cliente"; Me.VendaClienteID
Print #1, Tab(0); Me.cliente;
Print #1, Tab(0); "Data :" & Me.VendaData; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "----------------------------------";
Print #1, Tab(0); " "
Print #1, Tab(0); "Valor Compra : "; Format$(Format$(Me.VendaTotal, "#,##0.00"), "@@@@@@@@");
Print #1, Tab(0); "Valor Entrada : "; Format$(Format$(Me.Entrada, "#,##0.00"), "@@@@@@@@");
Print #1, Tab(0); "Valor Carne : "; Format$(Format$(Me.TotalGeral, "#,##0.00"), "@@@@@@@@");
Print #1, Tab(0); " "


'cabeça do cupon do items
Print #1, Tab(0); " Parc. Vencimento Valor R$ ";
Print #1, Tab(0); "----------------------------------";


'selecionar items do cupon
Dim csql As String
Dim bc As DAO.Database
Dim vendasemabero As DAO.Recordset
Set bc = CurrentDb
'csql = "SELECT * FROM Vendas Efetuadas WHERE Código_da_Venda=" & Chr(34) & Me.Código_da_Venda & Chr(34)
Set vendasemabero = bc.OpenRecordset("SELECT tab_VendaParc.VendaParcID, tab_VendaParc.VendaParcVendaID, " _
& "tab_VendaParc.VendaParcOrdem, tab_VendaParc.VendaParcValor, tab_VendaParc.VendaParcVcto, " _
& "tab_VendaParc.ref FROM tab_VendaParc INNER JOIN tab_venda ON " _
& "tab_VendaParc.VendaParcVendaID = tab_venda.Vendaid " _
& "where VendaParcVendaID = " & Me.VendaID, dbOpenDynaset)

Do While Not vendasemabero.EOF
Print #1, Tab(0); " "; Format(vendasemabero("VendaParcOrdem"), "@@@"); " " & Format(vendasemabero("VendaParcVcto"), "@@@@@@@@@@"); " " & Format(vendasemabero("VendaParcvalor"), "#,##0.00");

vendasemabero.MoveNext
Loop
vendasemabero.Close
'valor total do cupon
Print #1, Tab(0); "----------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(0); " Este documento destina-se ao "
Print #1, Tab(0); "controle de pagamento das parcelas"
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); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); "----------------------------------";
Print #1, Tab(0); "DH 1.0.1" + " "; "DH"
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); " "
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

Exit Sub

End Sub


A pergunta, Como posso colocar um critério que quando eu precionar o botão ele peça o nro da sequencia para saber que deve ser impresso somente aquela parcela?

Você tem uma linha aonde está passando vários critérios. Não seria só passar esse critério nessa linha?

Código:

csql = "SELECT * FROM Vendas Efetuadas WHERE Código_da_Venda=" & Chr(34) & Me.Código_da_Venda & Chr(34)
Set vendasemabero = bc.OpenRecordset("SELECT tab_VendaParc.VendaParcID, tab_VendaParc.VendaParcVendaID, " _
& "tab_VendaParc.VendaParcOrdem, tab_VendaParc.VendaParcValor, tab_VendaParc.VendaParcVcto, " _
& "tab_VendaParc.ref FROM tab_VendaParc INNER JOIN tab_venda ON " _
& "tab_VendaParc.VendaParcVendaID = tab_venda.Vendaid " _
& "where VendaParcVendaID = " & Me.VendaID, dbOpenDynaset)

Não observei a linha toda, até porque não sei qual é a posição da parcela na relação entre as tabelas. Mas não seria por aí?