Macros or VB Code for printing a sheet and then automatically changing the date by 1d

Try this

    ActiveSheet.PrintOut
    Range("B3") = Range("B3") + 1

You don't specify how many copies you want to print, if known at all.
As long as you select Yes on the Message Box it will continue with printing with the next date.

Sub NextDate()
    Dim j As Integer
    Dim Msg, Style, Title, Response, MyString
    Msg = "Do you want to continue ?"
    Style = vbYesNo + vbCritical
    Title = "More printing?"
    j = 0
    Do
        ActiveSheet.PrintPreview  '<----- Change to Print the page or area
        Response = MsgBox(Msg, Style, Title)
        If Response = vbNo Then
            Exit Sub
        Else
            j = j + 1
            Range("B3").Formula = "=TODAY() + " & j
        End If
    Loop
End Sub

Try it on a copy of your workbook.

BTW, are you an Oiler fan now after the last game?

I guess your neighbour (Dave) has an easier solution

Your asking a guy from Calgary if he is an Oiler Fan?