Hi Don

i can't :(
i don't have a printer installed on the machine i'm programming on (don't
ask!) ... so i can't run code with those two lines in it.

Cheers
JulieD


"Don Guillett" wrote in message
...
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