--- loncom/interface/lonprintout.pm	2024/11/08 20:37:25	1.699
+++ loncom/interface/lonprintout.pm	2024/11/09 15:40:00	1.700
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.699 2024/11/08 20:37:25 raeburn Exp $
+# $Id: lonprintout.pm,v 1.700 2024/11/09 15:40:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1223,6 +1223,7 @@ sub format_page_header {
 	if ($section) {
 	    $format .=  ' - Sec: '."%$sec_length".'s';
 	}
+	$format .= '\\hfill\\thepage';
 
 	$format .= '\\\\%c \\\\ %a';
 
@@ -2009,9 +2010,13 @@ sub page_format_transformation {
     my $fancypagestatement='';
     if ($numberofcolumns eq '2') {
 	$fancypagestatement="\\fancyhead{}\\fancyhead[LO]{$header_text}";
+	if ($parmhash{'print_header_format'} eq '') {
+	    $fancypagestatement .= "\\fancyhead[RE]{\\thepage \\\\[\\baselineskip]}";
+	}
     } else {
 	$fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}";
     }
+    $fancypagestatement .= "\\fancyfoot{}";
     my ($paperwidth,$paperheight);
     if ($layout eq 'album') {
 	    $text =~ s/\\begin\{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /;