Print Copies prompt

[Amir]

Hi guys
I'm sending data from Access into Word and using among
other things this option to print;
objWord.ActiveDocument.PrintOut Background:=False,
Copies:=2
I would like it somehow to prompt user as to how many
copies he requires and then he would key it in a txtbox
perhaps and that will tell Word how many copies to print.
Right now i have it hard coded for testing purposes.
Any help would be great.
Thank you.

 

[Jonathan Parminter]

Hi Amir,
try...

dim intCopies as integer

' =inputbox(prompt,title,default)
intCopies=inputbox("Enter number of copies
required","PrintOut",1)
objWord.ActiveDocument.PrintOut Background:=False,
Copies:=intCopies

Luck
Jonathan

 

[Amir]

Thank you I will try it...

-----Original Message-----
Hi Amir,
try...

dim intCopies as integer

' =inputbox(prompt,title,default)
intCopies=inputbox("Enter number of copies
required","PrintOut",1)
objWord.ActiveDocument.PrintOut Background:=False,
Copies:=intCopies

Luck
Jonathan

.