Ola a todos
Esta tentando imprimir cupons em uma impressora bematech mp 2500 th
instalei uma impressora generica LPT1 e ativei o pool da impressora pra ir direto
para uma porta USB, só que nao deu certo imprimir
meu sistema é w7 com access 2003
fiz assim
Open "LPT1:" For Output Access Write As #1
ele dar um erro
"Erro em tempo de execução 53"
"O arquivo não foi localizado"
Alquem pode mim ajudar??
Helder Milhome
**** codigo completo
'**********************************Recibo para o caixa e Anexo a promissoria
Private Sub Comando134_Click()
Dim bc As Database
Dim tbVendido As DAO.Recordset
Dim DB As DAO.Database
Dim RSP As DAO.Recordset ' Pedidos
Dim RSD As DAO.Recordset ' Detalhes dos pedidos
Dim strSQL As String
Dim Sai As String
Dim Par As String
'cupon para impressora de 40 colunas
Forms![Frm Autentica]![Impresso] = True
Me.Recalc
Open "LPT1:" For Output Access Write As #1 'AQUI DAR O ERRO
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, Autentic.CódigoDoCLiente, "
strSQL = strSQL & "Autentic.ValorCheque, Autentic.IdOperador, Autentic.NumContrato, Autentic.Cartao,Autentic.PrestLoja, Autentic.NomeLoja, "
strSQL = strSQL & "Autentic.AutorizaCheque, Autentic.NomeCheque, Autentic.Impresso, Vendedores.NomeVendedor, Autentic.NomedoCliente "
strSQL = strSQL & "FROM Autentic INNER JOIN Vendedores ON Autentic.IdOperador = Vendedores.IdOperador "
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 RSP = DB.OpenRecordset(strSQL) ' Cria o recordset com o registro a ser impresso
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); "================================================";
Format(Format(Me.NumContrato, "000000"), "@@@@@@");
Print #1, Tab(0); "Cliente: " & JustStr(UCase(RSP!NomedoCliente), " ", 33);
Print #1, Tab(0); "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; " " & (UCase(RSP!NomeLoja));
Print #1, Tab(0); "Operador: " & JustStr(UCase(RSP!NomeVendedor), " ", 33);
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.IdOperador, "0000000"), "@@@@@@@"); Format(Format(Me.NumContrato, "000000"), "@@@@@@");
Print #1, Tab(0); " "; Format$(Format$(Me.ValorParc, "########.##"), "@@@@@@@@@"); Format(Format(Me.AutenticacaoNu, "000000"), "@@@@@@"); 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
Esta tentando imprimir cupons em uma impressora bematech mp 2500 th
instalei uma impressora generica LPT1 e ativei o pool da impressora pra ir direto
para uma porta USB, só que nao deu certo imprimir
meu sistema é w7 com access 2003
fiz assim
Open "LPT1:" For Output Access Write As #1
ele dar um erro
"Erro em tempo de execução 53"
"O arquivo não foi localizado"
Alquem pode mim ajudar??
Helder Milhome
**** codigo completo
'**********************************Recibo para o caixa e Anexo a promissoria
Private Sub Comando134_Click()
Dim bc As Database
Dim tbVendido As DAO.Recordset
Dim DB As DAO.Database
Dim RSP As DAO.Recordset ' Pedidos
Dim RSD As DAO.Recordset ' Detalhes dos pedidos
Dim strSQL As String
Dim Sai As String
Dim Par As String
'cupon para impressora de 40 colunas
Forms![Frm Autentica]![Impresso] = True
Me.Recalc
Open "LPT1:" For Output Access Write As #1 'AQUI DAR O ERRO
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, Autentic.CódigoDoCLiente, "
strSQL = strSQL & "Autentic.ValorCheque, Autentic.IdOperador, Autentic.NumContrato, Autentic.Cartao,Autentic.PrestLoja, Autentic.NomeLoja, "
strSQL = strSQL & "Autentic.AutorizaCheque, Autentic.NomeCheque, Autentic.Impresso, Vendedores.NomeVendedor, Autentic.NomedoCliente "
strSQL = strSQL & "FROM Autentic INNER JOIN Vendedores ON Autentic.IdOperador = Vendedores.IdOperador "
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 RSP = DB.OpenRecordset(strSQL) ' Cria o recordset com o registro a ser impresso
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); "================================================";
Format(Format(Me.NumContrato, "000000"), "@@@@@@");
Print #1, Tab(0); "Cliente: " & JustStr(UCase(RSP!NomedoCliente), " ", 33);
Print #1, Tab(0); "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; " " & (UCase(RSP!NomeLoja));
Print #1, Tab(0); "Operador: " & JustStr(UCase(RSP!NomeVendedor), " ", 33);
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.IdOperador, "0000000"), "@@@@@@@"); Format(Format(Me.NumContrato, "000000"), "@@@@@@");
Print #1, Tab(0); " "; Format$(Format$(Me.ValorParc, "########.##"), "@@@@@@@@@"); Format(Format(Me.AutenticacaoNu, "000000"), "@@@@@@"); 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