[Pat B.]

Word 2003
We use a custom database for our travel-related business. The database
creates a merge document for our confirmation letter. I print 10-20 of these
a day. I have one printer with normal paper, and one printer with envelopes.
Currently, open the print dialog, change the printer to the envelope
printer, then highlight the person's address, go to Tools\Envelopes and
Labels (Alt+L) and click print to print the envelope.

I have created a macro to change the printer for me, but I need two. One to
change to the envelope printer, and one to change back to default printer.
What I would like, it to have a macro change the printer, print the envelope,
and then change the printer back. I tried recording the macro, but it saved
the name/address and does not update it when I try to print the letter for
antoher customer.

How do I get the Envelopes and Labels dialog to populate with the currently
selected text and not the text I had selected when I created the macro?

Thanks
Pat

[Suzanne S. Barnhill]

I can't answer your second question, but for the first, see
http://www.gmayor.com/fax_from_word.htm. Graham's macro includes setting the
printer back to the default (or previously active) printer.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

"Pat B." Pat wrote in message
...
Word 2003
We use a custom database for our travel-related business. The database
creates a merge document for our confirmation letter. I print 10-20 of
these
a day. I have one printer with normal paper, and one printer with
envelopes.
Currently, open the print dialog, change the printer to the envelope
printer, then highlight the person's address, go to Tools\Envelopes and
Labels (Alt+L) and click print to print the envelope.

I have created a macro to change the printer for me, but I need two. One
to
change to the envelope printer, and one to change back to default printer.
What I would like, it to have a macro change the printer, print the
envelope,
and then change the printer back. I tried recording the macro, but it
saved
the name/address and does not update it when I try to print the letter for
antoher customer.

How do I get the Envelopes and Labels dialog to populate with the
currently
selected text and not the text I had selected when I created the macro?

Thanks
Pat

[Graham Mayor]

The second question is also covered in the linked page

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Suzanne S. Barnhill wrote:
I can't answer your second question, but for the first, see
http://www.gmayor.com/fax_from_word.htm. Graham's macro includes
setting the printer back to the default (or previously active)
printer.

"Pat B." Pat wrote in message
...
Word 2003
We use a custom database for our travel-related business. The
database creates a merge document for our confirmation letter. I
print 10-20 of these
a day. I have one printer with normal paper, and one printer with
envelopes.
Currently, open the print dialog, change the printer to the envelope
printer, then highlight the person's address, go to Tools\Envelopes
and Labels (Alt+L) and click print to print the envelope.

I have created a macro to change the printer for me, but I need two.
One to
change to the envelope printer, and one to change back to default
printer. What I would like, it to have a macro change the printer,
print the envelope,
and then change the printer back. I tried recording the macro, but
it saved
the name/address and does not update it when I try to print the
letter for antoher customer.

How do I get the Envelopes and Labels dialog to populate with the
currently
selected text and not the text I had selected when I created the
macro? Thanks
Pat

[Pat B.[_2_]]

"Graham Mayor" wrote:

The second question is also covered in the linked page

--

Graham Mayor - Word MVP


Thanks for the link, but it didn't help. I was able to get macros to switch
the printer. The macro they had for the envelopes and lables opened the
dialog fine, but did not copy in the selected text.

I started from scratch and recorded a macro. The big problem was it
included an Address="Bob Smith" if Bob Smith was the person selected when
creating the macro. I deleted the Address="Bob Smith" line and the macro now
does what I want.

Sub PrintAddressOnEnvelope()
'
Selection.copy
ActivePrinter = "Envelope Printer"
ActiveDocument.Envelope.PrintOut ExtractAddress:=False,
OmitReturnAddress _
:=True, PrintBarCode:=False, PrintFIMA:=False,
Height:=InchesToPoints( _
4.13), Width:=InchesToPoints(9.5), AutoText _
:="ToolsCreateLabels1", ReturnAddress:="Our Compay Name", _
ReturnAutoText:="ToolsCreateLabels2",
AddressFromLeft:=wdAutoPosition, _
AddressFromTop:=wdAutoPosition,
ReturnAddressFromLeft:=wdAutoPosition, _
ReturnAddressFromTop:=wdAutoPosition,
DefaultOrientation:=wdLeftClockwise _
, DefaultFaceUp:=False
ActivePrinter = "HP DeskJet Draft"
End Sub