> From: George Clark <[EMAIL PROTECTED]>
> Reply-To: "Entourage:mac Talk" <[EMAIL PROTECTED]>
> Date: Tue, 14 Nov 2000 12:00:55 -0500
> To: "Entourage:mac Talk" <[EMAIL PROTECTED]>
> Subject: Re: Adapting "Print MultiEnvelope from E in W" script
>
> On 11/14/00 11:52, Keith Manley wrote:
>
>> How can I adapt the script �Print MultiEnvelope from E in W� for printing
>> on stationary with pre-printed return addresses? Or where can I find such
>> a script?
>
> Aaron Sills had a similar need and found that if he changed the VBA code to
> include:
>
> OmitReturnAddress:=True
>
> ..that took care of it. To add this in Print MultiEnvelope, find this
> section of the script:
>
> set vbScript to "recep = " & my Process_for_VB(theAddress)
> set vbScript to vbScript & "retaddr = " & my
> Process_for_VB(tempReturn)
> set vbScript to vbScript & "ActiveDocument.Envelope.PrintOut
> Address:=recep, _
> ReturnAddress:=retaddr, PrintBarCode:="
> if useBarcode is "Yes" then
> set vbScript to vbScript & "True"
> else
> set vbScript to vbScript & "False"
> end if
>
> Change the line:
>
> set vbScript to vbScript & "ActiveDocument.Envelope.PrintOut
> Address:=recep, _
> ReturnAddress:=retaddr, PrintBarCode:="
>
> to be:
>
> set vbScript to vbScript & "ActiveDocument.Envelope.PrintOut
> Address:=recep, _
> OmitReturnAddress:=True, PrintBarCode:="
>
>
> That should do it.
>
> George
>
> --
> George Clark - [EMAIL PROTECTED]
>
I changed the lines as directed and now get an error message--Microsoft
Visual Basic: Compile Error: Syntax Error
Then this in the Word debugger:
Sub TmpDDE()
recep = "Jim & Valerie Clanton" & vbCr & "315 Eastway Dr." & vbCr & _
"Lakeland, FL 33803"
retaddr = "Keith Manley" & vbCr & "Imagine That Ministries" & vbCr & _
"P.O. Box 563" & vbCr & "Polk City, FL33868"
ActiveDocument.Envelope.PrintOut
Address:=recep, _
OmitReturnAddress:=True, PrintBarCode:=False
End Sub
>
>
> --
> To unsubscribe: <mailto:[EMAIL PROTECTED]>
> To search the archives:
> <http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
--
To unsubscribe: <mailto:[EMAIL PROTECTED]>
To search the archives:
<http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
