Thank you Dave,Its fantastic.

Dave Peterson wrote:
Option Explicit
Sub Testme()

Dim myValidRng as range
dim myCell as range

'change this to point to the range that holds the list that's used
'for validation
set myValidRng = worksheets("Sheet9999").range("myList")

with worksheets("Sheet1")
for each mycell in myValidRng.cells
.range("a1").value = mycell.value
.calculate 'just in case
.printout preview:=true
next mycell
end with
end sub

If you only wanted to print A1:C20:
.range("a1:c20").printout

(Untested, uncompiled. Watch out for typos.)


I have a range a1:c20 ,the values of this range are based on datavalidation
list in a1.
[quoted text clipped - 6 lines]
--
Message posted via http://www.officekb.com


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200905/1