[Resolvido]Impressão direta - Nova Ajuda

Boa Noite

Preciso novamente de uma ajuda em impressão direta, pois não consegui acertar a impressão do Carnê e na impressão dos comprovantes, tem como alguem me ajudar.

No menu que esta escrito vendas, a parte do cupom esta pronta, mas a parte onde diz impressão cupom não consigo fazer imprimir as parcelas.

E na parte onde diz pag. Carne não consigo fazer tambem, pois ele deve pedir o nro da sequencia antes de imprimir (impressão direta).

Gostaria de uma ajuda.

Você quer é imprimir as parcelas de um carnê? Por exemplo, se são em 10 vezes, imprimir as dez folhas? Se for, algo assim não resolve, supondo que você tenha o campo CodPedido na tabela de Vendas?

DoCmd.OpenReport "NomeDoRelatório", acViewNormal, ,"CodPedido=" & Me.CodPedido

criquio, na impressão que apareçe na visualização isto da certo, mas eu quero na impressão direta pela porta lpt1, pois ja esta pronta, só não consigo que apareca as parcelas, pois aparece o nro do carne e o resto tambem, só falta a impressão das parcelas.

e na geração de quitação de cada parcela tambem gostaria que fosse impresso na impressora direta pela porta lpt1 ( matricial ), só que não consigo, pois nela tem a que digitar a sequencia para que a impressora saiba qual parcela esta sendo paga, por isso preciso de ajuda.

Poste o código completo que está usando para podermos ver melhor. A princípio seria mais ou menos a mesma coisa, só que, talvez, utilizando um Recordset:

Dim rs As Recordset
Set rs = "SELECT * FROM NomeDaTabela WHERE CodPedido=" & Me.CodPedido & " ORDER BY NumParcelas"
...

Este é o código que estou usando.

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"
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. Valor R$ Vencimento ";
Print #1, Tab(0); "----------------------------------";


'selecionar items do cupon
Dim csql As String
Dim bc As DAO.Database
Dim cVendaParc 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 cVendaParc = bc.OpenRecordset("SELECT tab_VendaParc.VendaParcID, tab_VendaParc.VendaParcVendaID, " _
& "tab_VendaParc.VendaParcOrdem, tab_VendaParc.VendaParcValor, tab_VendaParc.VendaParcVcto, " _
& "tab_VendaParc.VendaParcVendaID FROM tab_VendaParc INNER JOIN tab_venda ON " _
& "tab_VendaParc.VendaParcVendaID = tab_venda.Vendaid " _
& "where VendaParcVendaID = " & Me.VendaID, dbOpenDynaset)
cVendaParc.MoveNext

cVendaParc.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);

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

Exit Sub


e esta é a imagem do relacionamento.




[url= Uploaded with ImageShack.us] Uploaded with ImageShack.us[/url]

Boa Tarde,
o relatorio consegui resolver, pois tinha esquecido do comando print.

se alguem quiser o comando completo é só me informar que posto.

Resolvido

Ótimo! Grato pelo retorno.