[Spirosgr]

Καλησπέρα
Πάμε στον NameManager
Ονομάζουμε το κελί έναρξης sDate (o2)
Ονομάζουμε το κελί λήξης eDate (p2)
Ονομάζουμε το κελί ημερομηνίας pDate (b3)

Sub PrintContDates()
    Dim startDate   As Date
    Dim endDate     As Date
    Dim printDate   As Date

    Application.ScreenUpdating = False

    startDate = Range("sDate").Value
    endDate = Range("eDate").Value

    For printDate = startDate To endDate
        Range("pDates").Value = printDate
        'ActiveSheet.PrintPreview
        ActiveSheet.PrintOut
    Next printDate

    'Range("pDates").Value = ""
    Application.ScreenUpdating = True
End Sub 

Ισχύουν, όσα είπαμε στο post #4 περί σφαλμάτων κλπ.