Is there any way to format the headers of data frames, for printing?

I am using Sweave to generate formatted reports.  In Sweave, I read in a
data.frame:

              result <- read.table(path.to.table);

then display it:

              print.data.frame(result);

This gives me what I expect in the eventual final output:

Record        Average          Maximum
1               34              899
2               14              15
3               433             1003
...             ...             ...

What I am hoping to do is distinguish one or more of the column headers,
for example, I want "Average" or "Maximum" to be bold, underlined, etc.,
just some way to make the column name stand out visually.

Any idea if this is possible?  Any suggestions appreciated.

	[[alternative HTML version deleted]]

