Just one of the reasons that I always worked for ME.
BTW, can I borrow your sticky tape dispenser sometime?

--
Don Guillett
SalesAid Software

"JulieD" wrote in message
...
don't have permissions to install a printer driver .... :)

sad isn't it (but i do have a lovely new chair, a stapler & a sticky tape
dispenser)

Cheers
JulieD

"Don Guillett" wrote in message
...
You don't have to have a printer installed. Just install a printer
driver.
In other words, install a printer that you don't have and use the
printpreview line

--
Don Guillett
SalesAid Software

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