MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    impressao via lpt1 para usb

    Compartilhe

    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 03/07/2011

    impressao via lpt1 para usb

    Mensagem  Helder Milhome em Ter 29 Jul 2014, 20:45

    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

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: impressao via lpt1 para usb

    Mensagem  Roberto_1977 em Qua 30 Jul 2014, 16:49

    Boa tarde,

    Experimenta...
    Open "Lpt1:" For Output As #1 'Local

    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 03/07/2011

    Re: impressao via lpt1 para usb

    Mensagem  Helder Milhome em Qua 30 Jul 2014, 18:25

    Muito interassante uma coisa
    no w7 nao funciona mas no wXP dar tudo certo
    funciona 100% uma beleza
    onde as configuraçoes são iguais
    Obg pela ajuda Amigo Roberto
    Hmilhome

      Data/hora atual: Qui 08 Dez 2016, 00:06