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]Impressora na Rede

    avatar
    egnaldo
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  egnaldo em 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 100%

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

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

    Mensagem  egnaldo em 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 100%

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

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

    Mensagem  egnaldo em 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 100%

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

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

    Mensagem  egnaldo em 6/4/2017, 02:08

    Agora sim.

      Data/hora atual: 26/5/2020, 22:07