Notifications

Clear all

Imprimir cópias alterando data em uma célula

VBA & Macros

Post Recente por Anderson 2 anos atrás

4 Posts

2 Usuários

0 Likes

823 Visualizações

RSS

AlexAripuana

(@alexaripuana)

Posts: 3

New Member

Topic starter

Olá. Um amigo me procurou para auxiliar em uma planilha. Quero saber se é possível automatizar o que ele precisa.

No anexo está a planilha. Ele quer uma forma de imprimir cada página com uma data diferente, na célula destacada em vermelho.

Por exemplo, na primeira página imprimir com a data 01/02/2022, na segunda página, imprimir com a data 02/02/2022. Sempre alterando esta célula,

É possível fazer isso?

Planilha-Leandro.xlsx

__________

Título editado pela moderação. Motivo: o título do tópico deve ser um breve resumo de sua dúvida. Não use expressões como "Ajuda", "Help", "Socorro", etc.

Postado : 28/01/2022 5:32 pm

Anderson

(@anderson)

Posts: 203

Reputable Member

Sub imprimir30paginas()

Dim i As Integer
Dim dt As Date

dt = CDate(Planilha1.[d1])




For i = 1 To 30

Planilha1.Range("A1:D21").PrintOut

dt = dt + 1

Planilha1.[d1] = dt

Next i


End Sub

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

Postado : 29/01/2022 4:17 pm