How about a small macro to get you started:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim newWks As Worksheet
Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long

Set wks = Worksheets("sheet1")
Set newWks = Worksheets.Add

With wks
FirstRow = 2 'headers in row 1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

.Rows(1).Copy
newWks.Range("a1").PasteSpecial Transpose:=True

For iRow = FirstRow To LastRow
newWks.Range("b1").EntireColumn.ClearContents
.Rows(iRow).Copy
newWks.Range("b1").PasteSpecial Transpose:=True
With newWks
.UsedRange.Columns.AutoFit
.UsedRange.Rows.AutoFit
With .PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
.PrintOut preview:=True
End With
Next iRow
End With

Application.DisplayAlerts = False
newWks.Delete
Application.DisplayAlerts = True

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

zigeuner wrote:

Is it possible to print a single record per page? I have a spreadsheet
with 240 records and I want to be able to print a single record per
page, preferably with the column headings vertically down the side. I
have only a short time (about 20 hrs) to acheive this. :(

--
zigeuner
------------------------------------------------------------------------
zigeuner's Profile: http://www.excelforum.com/member.php...o&userid=27527
View this thread: http://www.excelforum.com/showthread...hreadid=470476

--

Dave Peterson