You don't have to go there. Try this for named range.

Sub printpackinglist()
'Sheets("packinglist").Range("packinglistprintarea ").Printpreview
Sheets("packinglist").Range("packinglistprintarea" ).PrintOut
End Sub


--
Don Guillett
SalesAid Software

"JulieD" wrote in message
...
Hi All

having trouble (Excel 2000) setting the print area
i create a form, populated with values from a database and then copy this
form to a new workbook. In the original form i created a named range,
which, of course goes into the new book. What i want to do is use the
name
range to set the print area for the form in the new workbook.

This process is all run from the OKbutton on a userform.

For some reason i keep getting a "can not set print area" message no
matter
which way i try

currently my code (after trying everything i can think of) goes like this
sheets("packinglist").activate
sheets("packinglist").copy
unload userform2
msgbox "You can now print the packing list"
i =workbooks.count
workbook(i).activate
sheets("packinglist").activate
activesheet.pagesetup.printarea = range("PackingList")

any ideas?

Thanks
JulieD