Maybe something like.....

Sub PrintCurrencyColumns()
For j = 7 to 18
bHide = True
For i = 1 to 2 '(or 1 to
Cells.SpecialCells(xlCellTypeLastCell).Row)
If IsNumeric(Cells(i,j).Text) = False Then bHide = False
Next i
If bHide = True Then Columns(j).Hidden = True
Next j
'code for printing here, don't remember offhand, but the
'macro recorder might help, maybe ActiveSheet.Print?
Columns.Hidden = False
End Sub