MathGroup Archive 2001

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

Search the Archive

Re: Notebook Filename

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30353] Re: Notebook Filename
  • From: Dan Dill <dan at bu.edu>
  • Date: Sat, 11 Aug 2001 03:40:18 -0400 (EDT)
  • Organization: Boston University
  • References: <9kqjuf$4fp$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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