Este fórum está sendo desativado

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

[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

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

[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 todos

Private 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

[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

[Basole]

Veja se é isso que deseja?

Código: Selecionar todos

Private 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

[CAMILOALVES01]

Prezado Basole, Boa Tarde!
Primeiramente muitíssimo obrigado pela paciência e pela ajuda.
Perfeito!
Atenciosamente