Option
Explicit
Sub
StartPrintOut()
DoIt
"26.08.2017"
,
"28.08.2017"
,
"B3"
End
Sub
Private
Sub
DoIt(sDate
As
Date
, eDate
As
Date
, dAdress
As
String
)
Do
While
sDate <= eDate
If
WorksheetFunction.Weekday(sDate) <> vbSunday
Then
Range(dAdress) = Format(sDate,
"DDDD"
) &
", den "
& Format(sDate,
"DD.MM.YY"
)
ActiveSheet.PrintOut 1, 1, 1
End
If
sDate = sDate + 1
Loop
End
Sub