The below is a macro to create a new sheet with the formulas visible
and printable
however I've left formatting (resizing of cells and so forth) to you so
that it is readable on the printed document.

Sub printable()
Dim row As Integer
Dim col As Integer
Dim sheetname As String
sheetname = ActiveSheet.Name
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "printable_" & sheetname
Worksheets("printable_" & sheetname).Range("A1:IV65536").NumberFormat =
"@"
For col = 1 To 30
   For row = 1 To 30
       If Worksheets(sheetname).Cells(col, row).Formula = "" Then
           Worksheets("printable_" & sheetname).Cells(col, row) =
Worksheets(sheetname).Cells(col, row).Value
       Else
           Worksheets("printable_" & sheetname).Cells(col, row) =
Worksheets(sheetname).Cells(col, row).Formula
       End If
   Next row
Next col
End Sub

Hope this helps

test

Paul,
Printing the code from the VBA IDE should not be a problem.
As for the sheets, you mean formulae ?
Go to Options and select "Formuals", then print.

NickHK