[RESOLVIDO] Histórico de Impressão

[CAMILOALVES]

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”.
Atenciosamente.

[webmaster]

Camilo,

Tentou sair do papel pelo menos? Vi que o arquivo anexo não tem uma só linha de macro.

Acredito que tudo o que precisa é capturar o BeforePrint:

Código: Selecionar todos

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     'seu código aqui
End Sub

Até aqui, seu código está apenas capturando o momento da impressão. Desconheço se é possível saber o que está sendo impresso, a não ser que você controle o processo.

Até aqui, isso resolve o fato do Excel ter enviado o arquivo para a fila de impressão. Saber se a impressão foi bem sucedida é outro PROBLEMÃO a se resolver, caso precise.

O links abaixos podem dar uma luz:

https://docs.microsoft.com/en-us/office ... eforeprint
https://docs.microsoft.com/en-us/office ... munication

[CAMILOALVES]

Prezado, webmaster » Qua Jun 01, 2022 12:09 am
Com Certeza tentamos, porém nos falta o conhecimento necessário para tal desenvolvimento, sendo assim até reformularemos o pedido conforme abaixo:
-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”.
Caso ache viável e puder nos ajudar, ficaremos grato
Atenciosamente.

[Basole]

Experimente...

Assim como o tomas citou:

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