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

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty [Resolvido]Imprimir em impressora selecionada

    Mensagem  gilberlanio 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
    [Resolvido]Imprimir em impressora selecionada AttachmentImprimir em impressora selecionada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 30 vez(es)


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  Silvio 14/9/2018, 15:22

    Bom dia...

    De uma olhada aqui..
    www.tomasvasquez.com.br/blog/microsoft-office/vba-listando-as-impressoras-instaladas-no-computador/


    .................................................................................
    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."
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imprimir em impressora selecionada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imprimir em impressora selecionada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imprimir em impressora selecionada Folder_announce_new Instruções SQL como utilizar...
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  gilberlanio 14/9/2018, 15:50

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imprimir em impressora selecionada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imprimir em impressora selecionada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imprimir em impressora selecionada Folder_announce_new Instruções SQL como utilizar...
    lukdogdog
    lukdogdog
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 21/06/2012

    [Resolvido]Imprimir em impressora selecionada Empty Re: [Resolvido]Imprimir em impressora selecionada

    Mensagem  lukdogdog 30/4/2021, 21:46

    Olá, boa noite JPaulo. Estou tentando rodar o seu exemplo pois preciso da mesma coisa e não esta abrindo o arquivo. teria como postar o código ou mandar outro por gentileza.

    Desde já grato pela atenção

    att

      Data/hora atual: 13/6/2021, 01:35