Anyone know of a way to print mail addresses on envelopes in Excel 2000?
I have a worksheet with many addresses. I want to print the addresses on the
envelopes for mailing.
Any help appreciated. Thanks in advance.
--

I use this to print an envelope or a form letter.

Sub FORMLTR()
For Each cel In Range("B5:B46") 'Names of people
If UCase(cel.Offset(0, 10)) = "X" Then 'x means to use
'names are in lastname, first name
[k1] = Trim(Right(cel, Len(cel) - Application.Find(",", cel)) & " " &
Left(cel, Application.Find(",", cel) - 1))
[k2] = cel.Offset(0, 1) 'street
'city,state,zip for line below
[k3] = cel.Offset(0, 2) & ", " & cel.Offset(0, 3) & " " & cel.Offset(0, 4)
x = [addresses!WhichLetter]

If Range("Preview") Then
Sheets(x).PrintPreview
Else
Sheets(x).PrintOut
End If
End If
Next
end sub

"xnman" wrote in message
...
Anyone know of a way to print mail addresses on envelopes in Excel 2000?
I have a worksheet with many addresses. I want to print the addresses on
the
envelopes for mailing.
Any help appreciated. Thanks in advance.
--

Use the Word mailmerge functionality with the Excel file as the source.

--
Regards,
Tom Ogilvy

xnman wrote in message
...
Anyone know of a way to print mail addresses on envelopes in Excel 2000?
I have a worksheet with many addresses. I want to print the addresses on
the
envelopes for mailing.
Any help appreciated. Thanks in advance.
--