Página 1 de 1
[RESOLVIDO] Histórico de Impressão
Enviado: 30 Mai 2022 às 15:14
por CAMILOALVES01
Boa Tarde,
Solicito ajuda para criar data/hora na célula K13 sempre que o arquivo for impresso através das opções do excel : “Arquivo-Imprimir (Ctrl+P)” ou pelo “ícone da impressora” .
Desde já agradeço.
Re: Histórico de Impressão
Enviado: 01 Jun 2022 às 17:45
por Basole
Veja se é isso que deseja:
Código: Selecionar todos
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets(1)
.Cells(.Cells(Rows.Count, "k").End(xlUp).Offset(1).Row, "k").Value = VBA.Now
Cancel = True
End With
End Sub
* Cole o codigo acima no modulo de
EstaPasta_de_trabalho
Re: Histórico de Impressão
Enviado: 02 Jun 2022 às 13:44
por CAMILOALVES01
Boa Tarde! Prezado Basole - 01 Jun 2022 às 17:45
Primeiramente Obrigado por dispor de seu tempo para ajudar-me.
Então....Testei o código e está exibindo a data/hora corretamente na coluna “K” a cada click nas funções de imprimir do excel, porém não imprime fisicamente na impressora.
Caso você concorde, pois isso alteraria a ideia original, poderíamos reformular o pedido anterior para um novo pedido abaixo sem que isso lhe cause maiores transtornos.
Novo Pedido: Exibir data/hora na célula K13 sem ser acumulativa, ou seja, sempre que o arquivo for impresso através das opções do excel : “Arquivo-Imprimir (Ctrl+P)” ou pelo “ícone da impressora”, uma data subscreve a outra na célula K13, permitindo a impressão física além de exibir a data/hora.
OBS: anexo novamente planilha já contemplando seu código.
Desde já agradeço.
Re: Histórico de Impressão
Enviado: 03 Jun 2022 às 13:37
por Basole
Desculpe eu havia acrescentado no codifo a linha cancel= true apenas para fazer os testes de inserir data ehora na celula k13
Segue com a altercao solicitada
Código: Selecionar todosPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets(1)
.Cells(13, "k").Value = VBA.Now
'Cancel = True ' habilite alinha para testar
End With
End Sub
Re: Histórico de Impressão
Enviado: 07 Jun 2022 às 15:33
por CAMILOALVES01
Boa Tarde, Prezado Basole
Muito Obrigado por dispor seu tempo e conhecimentos para ajudar-me.
Individualmente Funcionou 100%, porém quando tentamos aplicar sua macro em conjunto com outra, dá conflito entre as Workbook_BeforePrint(Cancel As Boolean)
Sem querer incomodá-lo, Seria possível Você fazer uma análise quanto a viabilidade de integração entre as duas macros existentes?
OBS: Anexo planilha com as macros.
Desde já agradeço
Re: Histórico de Impressão
Enviado: 08 Jun 2022 às 09:08
por Basole
Veja se é isso que deseja?
Código: Selecionar todosPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Plano Semanal Elétrica")
.Cells(13, "L").Value = VBA.Now
.PageSetup.LeftFooter = ActiveWorkbook.FullName
Cancel = True ' habilite alinha para testar
End With
End Sub
Re: Histórico de Impressão
Enviado: 08 Jun 2022 às 15:24
por CAMILOALVES01
Prezado Basole, Boa Tarde!
Primeiramente muitíssimo obrigado pela paciência e pela ajuda.
Perfeito!
Atenciosamente