diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 2f3c3119..34aad350 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -1820,15 +1820,17 @@ proc DoPrintHelper {} {
     set p $PSCmd
     if {"$Option(View)" == "Month"} {
         set p [regsub %WEEKS% $PSCmd ""]
+        set sd 1
     } else {
         set p [regsub %WEEKS% $PSCmd "+[get_num_weeks]"]
+        set sd $CurDay
     }
     if {$Option(PrintFormat) == "pdf"} {
         set p [regsub %EXTRA% $p "-itkpdf=1 $Option(ExtraRemindArgs)"]
-        set cmd "$p 1 [lindex $MonthNames $CurMonth] $CurYear | $Rem2PDF --weeks-per-page=[get_num_weeks]"
+        set cmd "$p $sd [lindex $MonthNames $CurMonth] $CurYear | $Rem2PDF --weeks-per-page=[get_num_weeks]"
     } else {
         set p [regsub %EXTRA% $p "-itkpdf=1 $Option(ExtraRemindArgs)"]
-        set cmd "$p 1 [lindex $MonthNames $CurMonth] $CurYear | $Rem2PDF --ps --weeks-per-page=[get_num_weeks]"
+        set cmd "$p $sd [lindex $MonthNames $CurMonth] $CurYear | $Rem2PDF --ps --weeks-per-page=[get_num_weeks]"
     }
     if {$Option(PrintSize) == "letter"} {
         append cmd " --media=Letter"