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

    Atualizar dados antes de imprimir

    avatar
    MMS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 12/04/2011

    Atualizar dados antes de imprimir Empty Atualizar dados antes de imprimir

    Mensagem  MMS 16/9/2012, 01:07

    Amigos, tenho um sistema que antes de imprimir eu o visualizo. E que quero atualizar um dado na tabela somente quando der o comando de imprimir efetivamente. Importante, uso o botão de imprimir padrão ribon access 2007. Já tentei colocar isso na opção "ao imprimir" , mas nao funciona, pois o simples fato de visualizar já executa essa função. Obrigado.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Atualizar dados antes de imprimir Empty Atualizar dados antes de imprimir

    Mensagem  toyebom 16/9/2012, 18:04

    esperimenta colocar a função no comando ao fazar click no botão imprimir

    atualizar
    pre-vizualizar
    Maximiza
    zoom 100%
    imprimir
    e fechar

    Private Sub "Comandonome"_Click()
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    DoCmd.OpenReport "Nome do report", acViewPreview, , "[ID] = " & [ID]
    DoCmd.Maximize
    DoCmd.RunCommand acCmdZoom100
    numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
    DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão
    DoCmd.Close
    End Sub


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

      Data/hora atual: 22/11/2024, 23:42