I recorded a macro in MSWord and got this line:

Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1-3", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
False, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

So maybe your code should look more like:

With Word
.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1-" & p
end with

I used MSWord 2003.

If this doesn't work, I'd record a macro in Word that does what you want and
compare that with your code.

Tristan wrote:

Evening all,

Here's my problem
I'm trying to get a macro going that will only print certain pages of a
document, in this case I want all the pages from 1 to the current page
selected.
I've dimmed "p" as a variant and it has the value of the current page
(say 3 for example).
Then the code goes like this:

With Word <---previously dimmed as word.application

PrintOut Range:=wdPrintFromTo, From:="1", To:="p"

I've also tried p without the quotes, omitting the range variant, p
dimmed as an integer, using Pages:="1-" & p instead of the From, To
thing and other stuff but it ain't working!!! Sure if I make p a
number than that works okay but I need it to be a variable because it's
gonig to be different each time.

Any suggestions, because I'm sure the rainforests aren't going to
appreciate me carrying on with this.

Thanks, Tris

--
Tristan
------------------------------------------------------------------------
Tristan's Profile: http://www.excelforum.com/member.php...o&userid=34061
View this thread: http://www.excelforum.com/showthread...hreadid=557029

--

Dave Peterson