MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    Imprimir direto para impressora em rede

    avatar
    Midicom
    Novato
    Novato

    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3791
    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...

      Data/hora atual: 6/3/2021, 17:21