Print Single Envelope From Form

[genest11]

I created a form that I use to input and review a person's name, mailing address and other information into a table. What I would like to do is select one name from the form and print an envelope with name and address directly onto the envelope without having to do a mail merge. Ideally, select the person and click a button on the form to print a mailing envelope. I currently review and print reports from this input form.

I have searched the forum for a related question but came up empty. Could someone point me in the right direction or provide some insight on how this may be accomplished? Thank you.

[genest11]

I have muddled my way into being able to print an envelope from my form.
1. I first created a report named Envelope2;
2. I put a command button on the form using the wizard;
3. I modified the Click event procedure (in the command button’s properties) in Visual Basic from this:

Private Sub Prnt_Recd_Click()
On Error GoTo Err_Prnt_Recd_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_Prnt_Recd_Click:
Exit Sub

Err_Prnt_Recd_Click:
MsgBox Err.Description
Resume Exit_Prnt_Recd_Click

End Sub

To this:

Private Sub Prnt_Recd_Click()
On Error GoTo Err_Prnt_Recd_Click

Dim strDocName As String
Dim strFilter As String

strDocName = "Envelope2"
strFilter = "ID = Forms!Homebuyers1!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

Exit_Prnt_Recd_Click:
Exit Sub

Err_Prnt_Recd_Click:
MsgBox Err.Description
Resume Exit_Prnt_Recd_Click

End Sub

Here is the remaining problem:

When I click the command button the current record is printed on an envelope and then a second envelope is also printed!

The first envelope is printed with the name, mailing address and return address. A second envelope is then printed with just the return address.

I am totally ignorant of Visual Basic and this is my first attempt in editing any Visual Basic routines. Does anyone know how I may be able to stop the second blank envelope from printing?

Access 2000
Windows XP

Thank you.

[genest11]

Just figured it out!

It was in the report and the way I set up the envelope layout.

Thank you to me!