MathGroup Archive 2001

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

Search the Archive

Re: Notebook Filename


This may not be exactly what you want, but here is an abbreviated
example of a scheme I use at the start of a notebook.

CellPrint@
    Cell[TextData[{"Notebook name is ", 
          StringDrop[("FileName" /. 
                  NotebookInformation[SelectedNotebook[]])[[2]], -3], 
          ".nb\nLast updated ", ValueBox["DateLong"], " ",
ValueBox["Time"]}],
       "SmallText",
      CellFrame -> {{0, 0}, {2, 0}}, CellFrameColor -> RGBColor[0, 0.8,
0], 
      FontSize -> 8, FontWeight -> "Plain"];

Executing this in a notebook will print its name and its time stamp. I
set the input cell to invisible so in the printed notebook it does not
appear.

Dan


  • Prev by Date: Re: Adding text at various X,Y locations on Multi-Function Graphs
  • Next by Date: RE: Inserting Text into Multifunction Graphs
  • Previous by thread: Re: Notebook Filename
  • Next by thread: Re: Notebook Filename