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


    [Resolvido]Imprimir via rede

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Imprimir via rede Empty [Resolvido]Imprimir via rede

    Mensagem  Silvio em 18/10/2019, 13:19

    Prezados, bom dia.

    Perdi meu hd de BKP ( pico de energia). E todos as minhas anotações do longo de anos. Tinha nele uma rotina que eu imprimia para uma bematech via rede ( IP )

    Sei que a rotina estava dentro dessa:

    Private Sub bt_imprimir_Click()
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "rpthistorico"
    strFilter = "IDhistorico=forms!frmhist!IDhistorico" 'filtro aplicado no relatorio
    DoCmd.OpenReport strDocName, acViewNormal, , strFilter
    End Sub


    Me recordo que tinha que colocar o ip da mesma, que é //nomeservidor/192.168.0.20 e o nome dela que é Bematech.

    Se alguém ainda tiver essa rotina, por favor,.....poste ela aqui.

    Grato.


    .................................................................................
    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."
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 318
    Registrado : 25/02/2016

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  FranklinJSP em 18/10/2019, 21:23

    Boa tarde Silvio!

    Espero que isto resulte para você...

    Código:
    Set Application.Printer = Application.Printers("\\NOME-REDE\NOME-IMPRESORA")

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  Silvio em 21/10/2019, 17:19

    boa tarde....

    Quase isso nobre amigo...quase isso.


    .................................................................................
    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."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6538
    Registrado : 15/03/2013

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  ahteixeira em 22/10/2019, 11:12

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  Silvio em 22/10/2019, 14:35

    AHTeixeira, boa tarde a ti.

    Não mesmo, eu me lembro em um tópico onde você ajudou uma pessoa, não sei se essa pessoa era eu.

    Me recordo apenas que era através do IP dentro da rotina que eu passei.

    Era dentro dessa rotina


    Private Sub bt_imprimir_Click()
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "rpthistorico"
    strFilter = "IDhistorico=forms!frmhist!IDhistorico" 'filtro aplicado no relatorio
    DoCmd.OpenReport strDocName, acViewNormal, , strFilter
    End Sub




    .................................................................................
    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."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6538
    Registrado : 15/03/2013

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  ahteixeira em 22/10/2019, 15:21

    Olá Silvio,

    Não me recordo, mas veja se é isto:
    https://www.maximoaccess.com/t30912-problema-de-impressao-na-lx300-com-win8-1-em-rede

    Se não, pôr a mão na massa.
    Pode fazer uma junção da dica do FranklinJSP com o exemplo partilhado pelo JPaulo.

    Que clicar para imprimir o reporte:
    1º vai verificar qual a impressora predefinida e guarda numa variável
    2º atribuir impressora caminho unc (\\192.xxx.xxx.xxx\ImpPartilha) como impressora predefinida
    3º Imprimir (DoCmd.OpenReport strDocName, acViewNormal, , strFilter)
    4º defenir novamente a impressora guardada na variável como impressora predefinida.

    Apenas uma sugestão Very Happy

    cheers
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  Silvio em 9/1/2020, 18:06

    resolvido....solução dada pelo AhTeixeira


    .................................................................................
    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."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6538
    Registrado : 15/03/2013

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  ahteixeira em 9/1/2020, 18:39

    Olá Silvio, obrigado pelo retorno.

    Que bom que resolveu, fico feliz por ter ajudado.
    Se poder dar mais detalhes ou partilhar o código usado, o fórum agradece.

    Abraço a todos
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  Silvio em 9/1/2020, 19:45

    Álvaro, boa noite !

    Simples de tudo mesmo.

    A Bematech tem um programa especifico para se colocar o IP da rede na impressora.

    Fiz o compartilhamento da mesma na rede. Esse compartilhamento, tem que estar para todos.

    Feito isso, fui no micro que ia instalar a mesma, digitei // 192.168.1.250, na linha de comando.... e o Windows me abriu o compartilhamento, cliquei duas vezes na impressora e pronto....impressora instalada e funcional.


    .................................................................................
    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."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6538
    Registrado : 15/03/2013

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  ahteixeira em 9/1/2020, 19:50

    Olá Silvio,

    Nem foi preciso modificar código.
    A solução já cá estava.

    Nada como ler o manual do fabricante, Wink

    Abraço
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  Silvio em 9/1/2020, 19:58

    Sim, concordo contigo, nada como ler o manual.
    Mas vale te dizer, eu só li, depois que o cliente me entregou o manual e isso foi a uma semana atrás.


    .................................................................................
    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."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6538
    Registrado : 15/03/2013

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  ahteixeira em 9/1/2020, 21:56

    cheers

    Conteúdo patrocinado

    [Resolvido]Imprimir via rede Empty Re: [Resolvido]Imprimir via rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/2/2020, 19:51