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


2 participantes

    Imprimir direto para impressora em rede

    avatar
    Midicom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/10/2012

    Imprimir direto para impressora em rede Empty Imprimir direto para impressora em rede

    Mensagem  Midicom 16/10/2014, 14:22

    Olá, bom dia

    Uso o Windows 7 32 e 64 bits, quando mando imprimir na impressora LX-300 que está em rede, usando o  comando OPEN LPT1 For Output AS #1 da uma mensagem de Erro em tempo de execução '75'
    Erro de acesso caminho/arquivo

    usando o windows XP funciona perfeitamente

    já liberei todo tipo de segurança, desativei o Firewall e nada.

    alguém poderia me dar uma ajuda?

    Obrigado (Tino)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Imprimir direto para impressora em rede Empty Re: Imprimir direto para impressora em rede

    Mensagem  Noobezinho 20/10/2014, 12:53

    Olá


    Experimente o código abaixo:


    Private Sub cmdTesteImp_Click()

    Dim Impressão, ret As Double

    Impressão= 1
    ' coloque o caminho UNC  da impressora que por sua vez deve estar compartilhada
    Open "\\Computador\EpsonLX-" For Output As #Impressão ' "EspsonLX-" é o nome compartilhado da impressora.(O nome que foi definido para o compartilhamento).
     
    Print #Impressão, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " TESTE DE IMPRESSÃO" & Chr$(27) & Chr$(70) & Chr$(20)
    Print #Impressão, Chr$(27) & Chr$(15) & " R.Joao Pio Duarte Silva, 1124"
    Print #Impressão, " Corrego Grande - Florianopolis"
    Print #Impressão, " CNPJ: xxx.xxx.xxx/0001-35"

    Close #Impressão


    Abraços

    Nb


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 27/4/2024, 01:58