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


    Imprimir via rede

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Imprimir via rede  Empty 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 : 297
    Registrado : 25/02/2016

    Imprimir via rede  Empty Re: 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 : 4465
    Registrado : 20/04/2011

    Imprimir via rede  Empty Re: 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 : 6379
    Registrado : 15/03/2013

    Imprimir via rede  Empty Re: 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 : 4465
    Registrado : 20/04/2011

    Imprimir via rede  Empty Re: 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 : 6379
    Registrado : 15/03/2013

    Imprimir via rede  Empty Re: Imprimir via rede

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

    Olá Silvio,

    Não me recordo, mas veja se é isto:
    http://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

    Conteúdo patrocinado

    Imprimir via rede  Empty Re: Imprimir via rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 03:50