[Resolvido]Impressão na LX300

Ola todos...
como posso fazer uma impressao na lx300 já que o access imprimi seu relatorio em modo gráfico.
tem alguma função pra essa impressora imprimir mais rapido com no DOS?
Grato pela ajuda
Helder

Opa! Tem sim!

Você pode mandar direto para a porta LPT1. Exemplo:

Código:



Open "Lpt1" For Output As #1
Dim NOME As String
Print #1, Chr(32) & "E"; " Farmacia Saude"
Print #1, Chr(15); "====================="
Print #1, Chr(25); "End: Centro"
Print #1, Chr(15); "Jaguaquara - BA"
Print #1, Chr(15); "====================="
Print #1, Chr(27) & "E"; "Cliente:"; "Teste"
Print #1, Chr(15); "Compra:"; "123456"
Print #1, Chr(15); "Data:"; "11/03/2014"
Print #1, Chr(15); "====================="
Print #1, Chr(15); "descrição:"
Print #1, Chr(15); "Quant:"
Print #1, Chr(15); "ValorVenda:"
Close


Lembrando que esse processo é um pouco trabalhoso, mas o resultado compensa!

Você pode usar um recordset no print.

Na esperança que ajude!

Bom estudo!

Ajudou bastante, já sei como fazer...
obrigado e abraços

Fiz assim e deu certo na impressora não fiscal

Private Sub Comando134_Click()
Dim BDE As DAO.Recordset ' Pedidos
Dim strSQL As String
Dim DB As String
Dim Sai As String
Dim Par As String

'----------------------------------
Forms![Frm Autentica]![Impresso] = True
Me.Recalc

Open "LPT1:" For Output Access Write As #1

Print #1, Tab(0); " ";
'-------------------------------- sql
strSQL = "SELECT Autentic.AutenticacaoNu, Autentic.Data, Autentic.Parcela, Autentic.PorConta, "
strSQL = strSQL & "Autentic.ValorParc, Autentic.Negociacao, Autentic.Dinheiro, [Dinheiro]-[ValorParc] AS Troco, "
strSQL = strSQL & "Autentic.PagCheque, Autentic.NumCheque, Autentic.Banco, Autentic.Agencia, "
strSQL = strSQL & "Autentic.ValorCheque, Autentic.CódigoDoCLiente, Autentic.NumContrato, Autentic.Cartao, "
strSQL = strSQL & "Autentic.AutorizaCheque, Autentic.NomeCheque, Autentic.Impresso, Clientes.NomeCliente "
strSQL = strSQL & "FROM Autentic INNER JOIN Clientes ON Autentic.CódigoDoCLiente = Clientes.CódigoDoCLiente "
strSQL = strSQL & "WHERE (((Autentic.AutenticacaoNu) = " & [Forms]![Frm Autentica]![AutenticacaoNu] & "));"
'-------------------------------- condições de pagamento
If Me.PorConta = True Then
  Par = "PARCIAL"
Else
  Par = "  "
End If
'--------------------------------
If Me.Negociacao = True Then
  Sai = "RENEGOCIADO"
Else
  Sai = "  "
End If
   
 
   Set DB = CurrentDb
   Set DBE = DB.OpenRecordset(strSQL)
   
 
Do While Not RSP.EOF

Print #1, Tab(0); " "; Date; "     OPTICAS REDENCAO      "; Time();
Print #1, Tab(0); " ";
Print #1, Tab(14); "COMPROVANTE DE PAGAMENTO ";
Print #1, Tab(0); "================================================";

'Print #1, Tab(0); "CLIENTE: " & JustStr(UCase(RSP!NomeCliente), " ", 33);
Print #1, Tab(0); "COD:     "; Format(Format(Me.CódigoDoCliente, "0000000"), "@@@@@@@"); "            Contrato no.:"; Format(Format(Me.NumContrato, "000000"), "@@@@@@");
Print #1, Tab(0); "Data:                                " & (RSP!Data);
Print #1, Tab(0); "Autenticação No.:                        "; Format(Format(Me.AutenticacaoNu, "000000"), "@@@@@@");
Print #1, Tab(0); "VALOR R$                              "; Format$(Format$(Me.ValorParc, "##,##0.00"), "@@@@@@@@@");
Print #1, Tab(0); "Parcela de No:                            "; Me.Parcela;
Print #1, Tab(0); "TP "; Par; Sai;
RSP.MoveNext
Loop
RSP.Close
Set RSP = Nothing

Print #1, Tab(0); "================================================";
Print #1, Tab(0); "          "; Format$(Format$(Me.ValorParc, "########.##"), "@@@@@@@@@"); Format(Format(Me.AutenticacaoNu, "000000"), "@@@@@@"); Format(Format(Me.CódigoDoCliente, "0000000"), "@@@@@@@"); Format(Format(Me.NumContrato, "000000"), "@@@@@@");
Print #1, Tab(6); "SysHM" + " V1.2" + "           Deus seja louvado";

'salto no fim da impressão
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
Print #1, Tab(10); " ";
'Print #1, Tab(10); " ";
'Print #1, Tab(10); " ";
Close #1

End Sub

Show de bola!!!!

O fórum agradece o retorno    

Até a próxima!