how to print envelopes in xl?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a name and address file in Exel. I understand that it is possible to
print envelopes using Report in Excel. My data file is 3000 names. How do I
proceed?

I tried using Word 2000 but cannot get past the Wizard. I know how to use
Mail Merge without the Wizard in Word 97.
 
mail merge in word in the only way i know.
I've used xl to print lable but never envelopes.
 
I actually have a #9 envelope page setup in my a file with a list of names.
I use this to print the envelopes to those maked with an x. I have another
macro to mark all with an x or clear all. I did this a long time ago and
would now change some things if I re-did it. I can use it to send a letter
also. Envelope is just a choice of form letters. You will have to correct
wordwrap on the k1 line.

lastname, first name ------street---------city--- st------ zip
Sub FORMLTR()
For Each cel In Range("B5:B46")
If UCase(cel.Offset(0, 10)) = "X" Then
[k1] = Trim(Right(cel, Len(cel) - Application.Find(",", cel)) & " " &
Left(cel, Application.Find(",", cel) - 1))
[k2] = cel.Offset(0, 1)
[k3] = cel.Offset(0, 2) & ", " & cel.Offset(0, 3) & " " & cel.Offset(0, 4)
[k4] = Trim(Right(cel, Len(cel) - Application.Find(",", cel)))
[p1] = cel.Offset(0, 16)

x = [addresses!WhichLetter]

If Range("Preview") Then
Sheets(x).PrintPreview
Else
Sheets(x).PrintOut
End If
End If
Next
End Sub
 
Back
Top