Este fórum está sendo desativado

[JuniorGodoy]

Srs, e Sras, boa tarde!

Existe algum VBA que gere uma quantidade específica de cópias de uma planilha para impressão (de acordo com a quantidade de dias do mês que fosse solicitado), incrementando a data em uma célula dessa planilha?

Por exemplo:
Defino o mês 11/2018, ele gera 30 cópias da planilha, incrementando o dia em cada cópia da planilha (1ª folha - 01/11/2018, 2ª folha - 02/11/2018, e assim por diante);
Se definir o mês 12/2018, ele gera 31 cópias da planilha (dia 01 à 31).

[osvaldomp]

Defino o mês 11/2018, ....

Coloque em A1 da planilha a ser impressa 1/11/2018 para imprimir novembro, coloque 1/12/2018 para imprimir dezembro ...
O código irá colocar a data em A2. Altere no código A1 e ou A2 se quiser.

Código: Selecionar todos

Sub Imprime()
 Dim i As Long
  For i = 1 To Day(Application.EoMonth([A1], 0))
   [A2] = DateSerial(Year([A1]), Month([A1]), i)
   ActiveSheet.PrintOut
  Next i
End Sub