MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Problema de impressão na LX300 com Win8.1 em rede...

    leandro_clp
    leandro_clp
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 26/12/2010

    Problema de impressão na LX300 com Win8.1 em rede... Empty Problema de impressão na LX300 com Win8.1 em rede...

    Mensagem  leandro_clp em 3/8/2017, 03:25

    Amigos, atualizei meu sistema da versao 2003 para a 2016.

    Possuo um relatorio personalizado (tamanho de papel 24cm largura x 14cm de altura) usado p/ impressao de cupom nao fiscal.

    A impressora LX300 +II está instalada em uma maquina com Win7 Pro (porem com o Office 2013) e compartilhada na rede com seu driver devidamente instalado e configurado esse papel personalizado como padrão e localmente imprime normalmente.

    Para uso desse papel personalizado tenho comandos diretos da impressora rm um botao que sao acionados antes e depois da impressao do relatorio que retrocedem e avançam a folha deixando pronto pra proxima impressao.

    O problema ocorre que em outra maquina da rede com Win8.1 que ao mandar a impressao (atraves de um botao unico) sai desconfigurada e parece que os comandos diretos da impressora nao sao reconhecidos.

    O detalhe é que quando esses comandos sao executados separadamente
    (criei botoes separados para teste) a impressao ocorre normalmente.

    O driver correto da impressora foi instalado corretamente e me parece ser algo dessa versão, visto que no WinXP funcionava normal. Ou seria referente ao driver dessa impressora para o Win8.1 ?

    Ja estou ha uns dias quebrando a cabeça e ate agora nada e ainda so com uma maquina imprimindo.

    Os comandos de impressão separadamente são os abaixo...e o ultimo é quem chama o relatorio:

    Private Sub btCOMANDOS_IMPRESSAO1_Click()
    Dim caminhoDaImpressora As String
    caminhoDaImpressora = "\\PC01\EpsonLX300"

    Open caminhoDaImpressora For Output As #1 'Abre a porta de impressão

    Print #1, Chr(27) + Chr(106) + Chr$(250)
    Print #1, Chr(27) + Chr(106) + Chr$(250)
    Print #1, Chr(27) + Chr(106) + Chr$(165)

    Print #1, Chr(27) + Chr(106) + Chr$(201)

    Close #1
    End Sub



    Private Sub btCOMANDOS_IMPRESSAO2_Click()
    Dim caminhoDaImpressora As String
    caminhoDaImpressora = "\\PC01\EpsonLX300"

    Open caminhoDaImpressora For Output As #1 'Abre a porta de impressão

    Print #1, Chr(10)
    Print #1, Chr(10)
    Print #1, Chr(10)
    Print #1, Chr(10)
    Print #1, Chr(10)
    Print #1, Chr(10)

    Print #1, Chr(10)
    Print #1, Chr(10)

    Print #1, Chr(10) & Chr(13)

    Print #1, Chr(101)
    Print #1, Chr(101)

    Close #1
    End Sub




    Private Sub btIMPRIMIR_PERS_Click()
    Dim strNomeDoDoc As String
    Dim strFiltro As String
    strNomeDoDoc = "rptPEDIDO_MINI_FINALIZADO"
    strFiltro = "cod_pedido = Forms!frmPEDIDO_FINALIZADO!cod_pedido"

    btCOMANDOS_IMPRESSAO1_Click
    DoCmd.OpenReport strNomeDoDoc, , , strFiltro
    btCOMANDOS_IMPRESSAO2_Click
    End Sub



    Criei um botão pra cada comando de impressão e um que chama o relatorio e assim é executado corretamente (1 clique por vez)...só por aí percebe-se entao que a impressora reconhece os comandos e que o driver está correto.

    Ao chamar esse botão acima "btIMPRIMIR_PERS" (executando os codigos em sequencia num unico botao) o problema ocorre...

    E fazendo testes mais aprofundados percebi que o erro ocorre porque o "btCOMANDOS_IMPRESSAO2" é executado antes da impressão do relatorio, ou seja, ele "atropela" os anteriores...e isso só pela rede.

    Abs!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4576
    Registrado : 20/04/2011

    Problema de impressão na LX300 com Win8.1 em rede... Empty Re: Problema de impressão na LX300 com Win8.1 em rede...

    Mensagem  Silvio em 3/8/2017, 13:46

    Bom dia Leandro.

    Não se posso lhe ajudar, mas deveria manter o mesmo padrão do pacote Office em teus computadores, para evitar " certas distorções " e da mesma forma o Sistema Operacional.

    Preferencialmente, Win10 com o Acess 2010. Tenho esse pacote instalado em alguns clientes e há tempos não sofro com problemas desse tipo.

    Quanto a impressão, experimente algo assim...

    caminhoDaImpressora = "\\coloque o IP do micro servidor \EpsonLX300"

    e

    strFiltro = "cod_pedido = Forms!frmPEDIDO_FINALIZADO!cod_pedido!cod_pedido"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 2/6/2020, 12:24