PV-WAVE Foundation > Tutorial > Printing and Exporting Data > Lesson 4: Printing a Table with Column Titles
Lesson 4: Printing a Table with Column Titles
In this lesson you will print a table with column titles. To achieve a presentable format with column titles requires a slightly more complicated approach.
To print a formatted version of the phone_data table to the screen and place titles above each column, do the following:
1. Restore the phone data from a saved file.
(UNIX) RESTORE, !dir+'/data/phone_example.sav'
(WIN) RESTORE, !dir+'\data\phone_example.sav'
2. Copy the following FOR loop to print the heading and phone data. The Format keyword in the PRINT statement uses FORTRAN-style format specifiers to format the rows.
FOR i=0, N_ELEMENTS(phone_data) - 1 DO BEGIN $
IF i EQ 0 THEN PRINT, ' DATE   TIME    DUR    INIT' + $
'   EXT   COST    AREA    NUMBER ' &$
PRINT, Format='(I6, 1X, I6, 3X, F5.2, 3X, ' + $ 
'A3, 3X, I3, 2X, F5.2, 3X, I3, 3X, A10)', $
phone_data(i).DATE, phone_data(i).TIME, $
phone_data(i).DUR, phone_data(i).INIT, $
phone_data(i).EXT, phone_data(i).COST, $
phone_data(i).AREA, phone_data(i).NUMBER
This example prints the formatted phone_table to the screen:
 
DATE
TIME
DUR
INIT
EXT
COST
AREA
NUMBER
901002
93200
21.40
TAC
311
5.78
215
2154934242
901002
94700
 1.05
BWD
358
0.0
303
2583869
901002
94700
17.44
EBH
320
4.71
214
2142319893
901002
94800
16.23
TDW
289
0.0
303
2955836
901002
94800
 1.31
RLD
248
0.35
617
6174941999
901003
91500
 2.53
DLH
332
0.68
614
6144695553
901003
91600
 2.33
JAT
000
0.0
303
480344
901003
91600
  .35
CCW
418
0.27
303
7725190
901003
91600
 1.53
SRB
379
0.41
212
2123056618
901003
91600
  .45
MLK
370
0.12
212
2124157956
901004
94700
  .80
JAT
000
0.0
303
480320
901004
94900
 1.93
SRB
379
0.52
818
8185012880
901004
95000
 3.77
DJC
331
1.02
512
5125331228
901004
95100
  .16
GWP
370
0.0
303
4441245
901004
95300
 1.36
JAT
000
0.0
303
480320