[Resolvido]Imprimir via rede

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.

Boa tarde Silvio!

Espero que isto resulte para você...

Código:

Set Application.Printer = Application.Printers("\\NOME-REDE\NOME-IMPRESORA")

Saludos

boa tarde....

Quase isso nobre amigo...quase isso.

Olá a todos,

Silvio, veja se é isto:
https://www.maximoaccess.com/t20975-imprimir-direto-para-impressora-em-rede
https://www.maximoaccess.com/t26020-resolvidoimpressao-em-impressora-termica-80-colunas-nao-fiscal-atraves-de-comunicacao-usb

Existe mais exemplos no fórum... e por falar em exemplos:
https://www.maximoaccess.com/t953-altera-impressora-padrao

Abraço a todos

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

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

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

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

Á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.

Olá Silvio,

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

Nada como ler o manual do fabricante,

Abraço

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.