How to set PrintArea to a named range

I need to Print the data in a named range and have tried the following code to do this:-

Please Login or Register  to view this content.

When this is run the correct columns are printed but the first printed row is the row above the named range and the last printed row is the penultimate row of the named range.
When I check the range in the Name Manager I find that the named range has been changed and its value is that of the print area.
There are 67 rows to print and 20 columns most of which contain 6 digits so this is a squeeze on A4 whether Portrait or Landscape and perhaps something decides that's too much to print we have to trim it.
But how can the range values be changed? I need help please!
John