MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Header and Footer Number of Pages

  • To: mathgroup at smc.vnet.net
  • Subject: [mg109355] Re: Header and Footer Number of Pages
  • From: Larry Adelston <larrya at wolfram.com>
  • Date: Fri, 23 Apr 2010 03:48:18 -0400 (EDT)

Here is one example:

Notebook[{Cell[
    CellGroupData[{Cell[TextData[{"Text for page ",  
CounterBox["Page"]}],
       "Section", CellChangeTimes -> {{3.48094*10^9, 3.48094*10^9}}],
      Cell["", "PageBreak", PageBreakBelow -> True]}, Open]],
   Cell[CellGroupData[{Cell[TextData[{"Text for page ",  
CounterBox["Page"]}],
       "Section", CellChangeTimes -> {{3.48094*10^9, 3.48094*10^9}}],
      Cell["", "PageBreak", PageBreakBelow -> True]}, Open]],
   Cell[CellGroupData[{Cell[TextData[{"Text for page ",  
CounterBox["Page"]}],
       "Section", CellChangeTimes -> {{3.48094*10^9, 3.48094*10^9}}],
      Cell["", "PageBreak", PageBreakBelow -> True]}, Open]],
   Cell[CellGroupData[{Cell[TextData[{"Text for page ",  
CounterBox["Page"]}],
       "Section", CellChangeTimes -> {{3.48094*10^9, 3.48094*10^9}}],
      Cell["", "PageBreak", PageBreakBelow -> True]}, Open]],
   Cell[TextData[{"Text for page ", CounterBox["Page"]}], "Section",
    CellChangeTimes -> {{3.48094*10^9, 3.48094*10^9}}, CellTags ->  
"LastPg"]},
  WindowSize -> {640, 750},
  WindowMargins -> {{22, Automatic}, {Automatic, 49}}, PrintingCopies - 
 > 1,
  PrintingPageRange -> {1, Automatic},
  PageHeaders -> {{Cell[
      TextData[{CounterBox["Page"], " of ", CounterBox["Page",  
"LastPg"]}],
      "PageNumber"], None, None}, {None, None,
     Cell[TextData[{CounterBox["Page"], " of ", CounterBox["Page",  
"LastPg"]}],
       "PageNumber"]}}, PrintingOptions -> {"FirstPageHeader" -> True},
  FrontEndVersion -> "7.0 for Mac OS X PowerPC (32-bit) (February 18,  
2009)",
  StyleDefinitions -> "Default.nb"]

Yours,
Larry
On Apr 22, 2010, at 2:29 AM, javierarias wrote:

> Hi, how are you?
> I'd like to put x of y pages wheter in the header or footer of my
> Mathematica Notebook.
> I've been trying to find info on CounterBox and CellTags, but I
> couldn't make it work.
> Any help would be appreciated.
> Regards,
> Javier Arias



  • Prev by Date: Problematic family of integrals
  • Next by Date: Re: Dynamic evaluation of layered networks
  • Previous by thread: Header and Footer Number of Pages
  • Next by thread: Unevaluated functions