MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

    [Resolvido]Impressora na Rede

    avatar
    egnaldo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 11/03/2012

    [Resolvido]Impressora na Rede Empty [Resolvido]Impressora na Rede

    Mensagem  egnaldo 27/3/2017, 19:00

    Boa tarde
    Tenho 01 relatório que dependendo do usuário pode ser imprimido em terminais diferentes, e o seguinte código que estou colocando:

    Dim strDefaultPrinter as string

    'Obter impressora padrão atual.
    strDefaultPrinter = Application.Printer.DeviceName

    'Para a impressora de sua escolha:
    Set Application.Printer = Application.Printers("\\VENDAS_12\HP_1102w_VENDAS")

    DoCmd.OpenReport "RelatorioVendas", acViewNormal, "", "((([vendaitens]![codvenda])=[Forms]![Venda]![codvenda]))"
    'Fazer o que quiser .... imprimir relatórios

    'Voltar
    Set Application.Printer = Application.Printers(strDefaultPrinter)

    parece tudo tão simples mas não estou conseguindo acessar a impressora que esta na rede, ja tentei de varias formas e pesquisei, aguardo alguma ajuda, obrigado.
    avatar
    egnaldo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 11/03/2012

    [Resolvido]Impressora na Rede Empty Re: [Resolvido]Impressora na Rede

    Mensagem  egnaldo 30/3/2017, 16:07

    Bom dia, continuo procurando a solução, já tentei de varias formas, gostaria de saber se estou utilizando o código de maneira errada.
    vou expor novamente a duvida minha para que não fique confuso.
    Tenho 01 relatório, mas o mesmo vai ser impresso em impressoras diferentes que estão da Rede da loja.
    Para fazer isso vou usar um Select Case, ou If , mas o problema é fazer o código trocar a impressora padrão pela da rede.
    Aguardo se alguem já passou por caso parecido e puder me ajudar.Obrigado.
    avatar
    egnaldo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 11/03/2012

    [Resolvido]Impressora na Rede Empty Re: [Resolvido]Impressora na Rede

    Mensagem  egnaldo 6/4/2017, 02:06

    Boa noite, depois de fazer algumas pesquisa e de alguns teste adaptei o código abaixo,

    Dim a As Printer ' esta declaração pode esta a nivel de modulo

    Private Sub BtnConfirmaVenda_Click()
    Dim Oldprinter As Printer
    Set Oldprinter = Application.Printer
    Dim NomeImpressora As Variant
    NomeImpressora = "\\VENDAS_12\HP_1102w_VENDAS"
    For Each a In Printers
    If a.DeviceName = NomeImpressora Then Set Application.Printer = a
    Next
    DoCmd.OpenReport "RelatorioLazer", acViewNormal, "", "((([vendaitens]![codvenda])=[Forms]![Venda]![codvenda]))"
    Application.Printer = Oldprinter
    End Sub

    vou dar como resolvido , pois o código funcionou para mim, deixo ele postado para se caso algum usuário tiver o mesmo problema, a e lembrando a impressora deve estar configurada como "Impressora Padrão"
    se tiver como "Impressora específica" não funciona, obrigado.
    avatar
    egnaldo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 11/03/2012

    [Resolvido]Impressora na Rede Empty Re: [Resolvido]Impressora na Rede

    Mensagem  egnaldo 6/4/2017, 02:08

    Agora sim.

      Data/hora atual: 17/4/2021, 16:20