Please, try the next updated code. It firstly print the sheet with first day of the current month and second time with the last:

Private Sub CommandButton1_Click()
 Dim firstD As Date, lastD As Date
 
 firstD = DateSerial(Year(Date), Month(Date), 1)
 lastD = WorksheetFunction.EoMonth(Date, 0)

 Range("A2").Value = Format(firstD, "dd MMMM yy")
 ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True

 Range("A2").Value = Format(lastD, "dd MMMM yy")
 ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End Sub

Is this what you want/need?

Edited:

Please, test the next version which should do what (I understood) you need:

Sub CommandButton1_Click()
   Dim d As Date, curYear As Long
   
   d = DateSerial(Year(Date), Month(Date), 1) 'initial day
   curYear  = Year(d)

   Do While Year(d) = curYear And Month(d) <= 12 And Day(d) <= 31
        Range("A2").Value = Format(d, "dd MMMM yy")
        
        ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
        
        d = d + 1
    Loop
End Sub

您可以使用工作表函数EOMONTH来计算上个月的最后一天。然后将日期加1，使其提前到本月的开始。
下面详细介绍了两个选项。
1.按天循环当前月份
1.按天循环到任意日期
选项2已注解掉。若要使用它，请注解掉选项1并取消注解选项2。

Private Sub CommandButton1_Click()

Dim StartOfMonth As Date
Dim DateStep As Long
Dim DayCounter As Long

    StartOfMonth = WorksheetFunction.EoMonth(Date, -1)
'Calculate the last date of the prior month

    DateStep = Day(WorksheetFunction.EoMonth(Date, 0))
'Calculate the last day of the current month (Option 1)

'   DateStep = DateSerial(2022, 12, 31) - StartOfMonth
'Alternate for a longer date range instead of the current month (Option 2)

    For DayCounter = 1 To DateStep
    
        ActiveSheet.Range("A2").Value = Format(StartOfMonth + DayCounter, "dd MMMM yy")
    'Insert the date into a cell
    
        ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
    
    Next

End Sub