MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    impressao via lpt1 para usb

    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    impressao via lpt1 para usb Empty impressao via lpt1 para usb

    Mensagem  Helder Milhome 29/7/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
    avatar
    Convidado
    Convidado


    impressao via lpt1 para usb Empty Re: impressao via lpt1 para usb

    Mensagem  Convidado 30/7/2014, 16:49

    Boa tarde,

    Experimenta...
    Open "Lpt1:" For Output As #1 'Local
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    impressao via lpt1 para usb Empty Re: impressao via lpt1 para usb

    Mensagem  Helder Milhome 30/7/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

    Conteúdo patrocinado


    impressao via lpt1 para usb Empty Re: impressao via lpt1 para usb

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:21