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

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty [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
    [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 14 vez(es)


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

    Vários Exemplos Grátis
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

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



    .................................................................................
    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 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty 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.

    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 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty 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.


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

    Vários Exemplos Grátis
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Imprimir em impressora selecionada Empty 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.

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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/6/2019, 03:45