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

2 participantes

    Imprimir os dados do sub-formulário atual com botao imprimir

    avatar
    erilioaraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 18/01/2012

    Imprimir os dados do sub-formulário atual com botao imprimir Empty Imprimir os dados do sub-formulário atual com botao imprimir

    Mensagem  erilioaraujo 23/6/2018, 02:51

    Boa Noite.

    preciso de um codigo para imprimir a tabela do suformulario atual.

    agradeço pela ajuda desdde já
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Imprimir os dados do sub-formulário atual com botao imprimir Empty Re: Imprimir os dados do sub-formulário atual com botao imprimir

    Mensagem  Silvio 25/6/2018, 11:35

    Bom dia.


    Em um botão de comando, evento click:

    Código:
    Private Sub bt_imprimir_Click()
    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "NomedoDocumentoASerImpresso"
    strFilter = "ChavePrimaria= Forms!NomeFormularioPrincipal!NomeSubFormulario.Form!ChavePrimaria"
    DoCmd.OpenReport strDocName, acViewNormal, , strFilter
    End Sub


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

      Data/hora atual: 5/12/2022, 19:17