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.
2 participantes
Atualizar dados antes de imprimir
MMS- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 112
Registrado : 12/04/2011
- Mensagem nº1
Atualizar dados antes de imprimir
toyebom- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012
- Mensagem nº2
Atualizar dados antes de imprimir
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
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.
» [Resolvido]Gravar mas antes Imprimir
» [Resolvido]usuário escolhe impressora de relatório antes de imprimir
» [Resolvido]Função antes de atualizar - BeforeUpdate
» [Resolvido] Códigos VBA para Relatórios - Atualizar relatório antes de abrir
» [Resolvido]Procedimento Antes de atualizar do Formulário (esclarecimento)
» [Resolvido]usuário escolhe impressora de relatório antes de imprimir
» [Resolvido]Função antes de atualizar - BeforeUpdate
» [Resolvido] Códigos VBA para Relatórios - Atualizar relatório antes de abrir
» [Resolvido]Procedimento Antes de atualizar do Formulário (esclarecimento)