Envelope Dilemma, Part 2 (Word 97SR2)

Topic

New Reply

For the “envelope data” ( return address, recipient address and logo) to print,
the user will click the Ok button on the form below.

This is my attempt at replacing the built-in Word dialog as mentioned in Part 1.

What code will get the envelope to print?

If I use the .execute method on the dialog (as in:

set dlg = dialogs(wdDialogToolsEnvelopesAndLabels)
With dlg
.EnvOmitReturn = false
.execute
End with

Word inserts an envelope page into the document. I don’t want that. The user must
then print the page to get the envelope printed then delete the envelope page.
I want the the envelope to print when the user presses the Ok button on the form below. How can I program that?

Reply | Quote

Replies

Kevin,

It looks like you can do this:

Dim doc As Document

Set doc = ActiveDocument

set dlg = dialogs(wdDialogToolsEnvelopesAndLabels)
With dlg
    .EnvOmitReturn = false
End with

doc.Envelope.PrintOut

If that doesn’t work, you could try:

Leaving the .Execute in and adding the following line after the .execute

doc.PrintOut , , wdPrintFromTo, , 1, 1

Reply | Quote

Bryan, Thanks for your reply. The problem with this solution is the envelope page still gets added to the document. I suppose if I could allow the page to insert, print it then delete it, then this would work for me.

Reply | Quote

…which leads me to the next obvious question: What’s the easiest way to remove an envelope from a document?

Reply | Quote

Kevin,

Given all the work you are having to do, why not just create a new document, with .Visible=False, use Page Setup to set it to match your envelopes, put the text boxes where you want, print it and delete it again?

StuartR

Reply | Quote

Believe me, do. (A little Beatlesesque lingo there for you.) I thought of this and have not completely axed the idea. The delete part would certainly be easy.

Reply | Quote

I only have W2K here, but when the envelope get inserted into the document for me, it is at the beginning of the document, so…

ActiveDocument.Sections(1).Range.Delete

Will get rid of the first section, which is the envelope.

Reply | Quote

It’s a good thing you can think on a Friday. I can’t. Nicely done.

Reply | Quote

It’s a gift .

No wait a minute, it’s ’cause I’m bored outta my skull and needed something to do.

It’s Friday afternoon, before a 3 day weekend, followed by almost 2 weeks off, and nothing to do (Just don’t tell my boss that )

Reply | Quote

Bored, huh? Well, don’t spend all your time off here. That’ll really drive you

Reply | Quote

, me??

Too late

Reply | Quote

Back on topic for a minute:

What do you know about the autotext entries EnvelopeExtra1 and 2? I’m using one of these (the 1) for the logo. If Word finds these autotext pieces, it’ll use them in the return address. I’m wondering if I can use the Extra2 to slap the nicely formatted return address up there next to the logo. Then, the envelope should print without having to insert it into the doc. That would be nice.

Reply | Quote

No. I have no idea about the autotext entries.

I didn’t even know they existed.

Reply | Quote

Well, there’s something you can do to keep the boredom at bay…

Reply | Quote

Here is your answer.

Yes you can.

The only problem is it looks like they are inserted one below the other.

I did play around with it a bit and it looks like, you may have to play with the positioning and the layout/wrapping of the logo for it to appear on the envelope properly.

Or at least in W2K you can.

But the question becomes, why don’t you just add the logo and the nicely formatted text to the EnvelopeExtra1 AutoText entry?

Reply | Quote

>>But the question becomes, why don’t you just add the logo and the nicely formatted text to the EnvelopeExtra1 AutoText entry?

Could the answer be: “Because the logo never changes but the return address could be different for each envelope?

I’m onto it though. Testing as we speak…

Reply | Quote

Good luck

I’m off to Watkins Glen State Park for the weekend now. YEA!!!!

Reply | Quote

Ok, thanks for your help. It’s working great with EnvelopeExtra2, so it looks like a keeper.

Reply | Quote

I think that gets me off the hook on the question you asked me. I think that has come up before, that certain of the dialog controls are rich text controls, but that there doesn’t seem to be any programmatic way to access the formatting. Perhaps the AutoText entry is the secret (previously hidden) link. Bravo on the sleuthing.

(As for your question about whether I have documentation, maybe

Reply | Quote

Add this parameter:

.PrintEnvLabel = True

Reply | Quote

That indeed works. And thank you Jefferson. Now, I see that parameter in the “Built-in Dialog Box Argument List” in the help. But how did you know what it does? In other words, do you have some documentation on these arguments?

Reply | Quote

The only remaining problem is this: I need to format the return address with all lines bold and centered to right of the logo.

By inserting the envelope into the document, I can put a text box next to the logo and format the return address.

But the Return Address field in the Word Envelopes and Labels dialog (which is what the .PrintEnvLabel uses to print the envelope) does not appear to allow any formatting.

Do you know if there Is there a way to format that field?

Reply | Quote

Jefferson,

How about this argument:?

.EnvPaperName

The envelope prints to the “manual” bin. I need to set it either to Automatically Select or Envelope Feeder.

Not sure that’s the correct argument; nor do I know the syntax to use it properly. Any discoveries?

Reply | Quote

Does your syntax from Post #42652 not work? It persisted into the revised version (Post #57945)…

Reply | Quote

Unfortunately it does not. Sure sounded good though, huh?

Reply | Quote

Hummm. Wait, maybe that second one *does* work. I’m testing existing Word 97 code on Word 2002 and running into problems.

I need to try .EnvPaperName again.

Thanks for showing me my own stuff. Gee wiz.

Reply | Quote