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


    Impressão de Relatório em 4 vias

    avatar
    fbugman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 24/03/2014

    Impressão de Relatório em 4 vias Empty Impressão de Relatório em 4 vias

    Mensagem  fbugman em 24/3/2014, 18:43

    Olá! Estou comum BD em Access e estou tendo um probleminha com os relatórios. O problema é que o relatório tem que ser impresso em 4 vias (eles são a mesma coisa) a diferença é que em cada um tem que vir o dizer "Via Cartório", "Via Familiar", "Via Cemitério" e "Via Funerária".
    Como faria para criar um botão que ao enviar para impressora imprimisse esses relatórios distintos automaticamente?

    Agradeço a atenção de todos!

     Arrow 
    clynton
    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  clynton em 24/3/2014, 22:52

    Cria 4 relatórios idênticos como você quer, coloque no final do nome deles "Cartório", "Familiar", "Cemitério" e "Funerária".
    Em cada um você coloca um rótulo se referenciando ao destino, depois só definir na macro que será executada ao clicar no botão de imprimir para abrir e imprimir um de cada relatório.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3534
    Registrado : 04/04/2010

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  Avelino Sampaio em 25/3/2014, 07:37

    Olá!

    Uma outra opção é alterar o rótulo do relatório com as frases citadas.  Vc pode passar(OpenArgs) o nome do rótulo na chamada do relatório para a impressão.

    exemplo das chamadas do relatório, no evento "ao clicar" de um botão:

    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Cartório"
    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Familiar"
    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Cemitério"
    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Funerária"

    e no evento "ao imprimir" do cabeçalho do relatório:

    Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
    Me!NomeDoRótulo.Caption = Me.OpenArgs
    End Sub

    Sucesso!
    toyebom
    toyebom
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1121
    Registrado : 18/07/2012

    Impressão de Relatório em 4 vias Empty Impressão de Relatório em 4 vias

    Mensagem  toyebom em 25/3/2014, 09:29



    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    clynton
    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  clynton em 28/5/2014, 16:42

    Fabiano,

    Se já tiver solucionado esta questão, por favor marque o tópico como [Resolvido], se não, diga-nos como está a situação.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    Conteúdo patrocinado

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/2/2020, 15:57