Generar folio

hola, Jonathan !

... como puedo generar un folio consecutivo cada vez que lo mande a imprimir y este se regenere cuando cambie el mes

suponiendo que en 'A1' vas incrementanto el folio consecutivo -> cada vez que mandas a imprimir...
y que en 'A2' vas 'monitoreando' el mes [para renovar el consecutivo de los folios]...
prueba con unas instrucciones +/- como las siguientes:
Sub Imprime_Numera()
If Month(Date) = [a2] Then
[a1] = [a1] + 1
Else
[a2] = Month(Date)
[a1] = 1
End If
ActiveSheet.PrintOut
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. toma nota que deberas 'mandar la impresion' por medio de la macro [quizas asignada a un atajo/boton/figura/...] :)