PrinOut Method

  • Thread starter Thread starter Stuart
  • Start date Start date
S

Stuart

Hi,

I'm using the following code print out the name and
address onto an envelope, but I keep receiving run time
error 462 if the code is run more than once. It always
fails at the printout method. Also I would like to use
the Addressfromleft option, but I am unable to get it to
work. Can anyone help ?

With objWord

Set rng = objWord.ActiveDocument.Bookmarks("Name").Range
rng.End = objWord.ActiveDocument.Bookmarks
("Address").Range.End
.ActiveDocument.Bookmarks.Add _
Name:="EnvelopeAddress", _
Range:=rng
rng.Font.Size = 12

ActiveDocument.Envelope.PrintOut , , , , , , , , , , , , ,
AddressFromTop:=CentimetersToPoints(3.1)

End With

Thanks
 
Hum, try giving my read to go word merge system a try.

You will be able to create a word merge document (envelope format) in word,
and launch it with one button.

Give my sample working example a try, and if you like it, then follow the
instructions on my web site on how to use the example in YOUR application.

you will find it here:

http://www.attcanada.net/~kallal.msn/msaccess/msaccess.html
 
Back
Top