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 em impressora selecionada

    Compartilhe
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 714
    Registrado : 30/08/2010

    [Resolvido]Imprimir em impressora selecionada

    Mensagem  gilberlanio em 14/9/2018, 14:44

    Olá estou tentando desenvolver uma rotina a partir de um exemplo do JPaulo e Avelino.

    Como fiz:
    1 - Criei um tabela que armazena o nome da impressora (tabImpressoraSelecionada) a partir do formulário frmSetImpressora
    2 - Criei um relatório: relTeste
    3 - Criei um formulário com um botão para imprimir o relTeste com base na impressora que armazenei na tabela tabImpressoraSelecionada

    Código do botão:
    Código:
    Private Sub btImprimir_Click()
    Dim varNomeImpressa As String ' Variável
    varNomeImpressa = DLookup("nomeImpressora", "tabImpressoraSelecionada") ' Aqui armazeno o nome da impressora na variável varNomeImpressa
    'By JPaulo ®️ Maximo Access
    Dim stDocName As String
    stDocName = "relTeste" 'nome do seu relatório
    DoCmd.OpenReport stDocName, acViewNormal
    On Error Resume Next 'Caso você cancele a impressão e gere o erro 2501
    'Aqui define qual a impressora em que deseja imprimir, eu coloquei a HP PSC 1600 series para exemplo
    'Em vez do nome da impressora, pode defenir pelo index, Application.Printers(4) ou Application.Printers(5)
    Set Reports!relTeste.Printer = Application.Printers(varNomeImpressa)

    DoCmd.Close
    End Sub



    Problema:

    Só imprime na impressora padrão independimente da impressora que eu armazena na tabela

    Segue o arquivo:
    Anexos
    Imprimir em impressora selecionada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 2 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  Silvio em 14/9/2018, 15:22

    Bom dia...

    De uma olhada aqui..
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10111
    Registrado : 04/11/2009

    Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  JPaulo em 14/9/2018, 15:28

    Ola;

    Veja se funciona a contento;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 714
    Registrado : 30/08/2010

    Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  gilberlanio em 14/9/2018, 15:50

    Obrigado Silvio e JPaulo
    Resolvido com as alterações que o JPaulo fez.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10111
    Registrado : 04/11/2009

    Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  JPaulo em 14/9/2018, 16:08

    Fico feliz.
    Obrigado pelo retorno o forum agradece.

    Aproveite e se puder ou quando puder, ajude o fórum nos links abaixo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 23/9/2018, 02:15