Printing Envelopes

  • Thread starter Thread starter xnman
  • Start date Start date
X

xnman

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
 
Back
Top