Printing Labels

[Krash878]

I have a table with multiple people and there addresses. I need to be able to select a person and click a macro and print a page of labels out or one envelope out. Can some give me an idea on how I would do this. I have already set up another DB that does this but I made a report that I had to hand size it to a label sheet. I then made it so I could print out one sheet of labels at a time. This used a lot of code and am hoping to simplify it.
Thanks in advance

Kenny

 

[JoeMiller]

I use this code to make repeats of a label a specified number of times. I have a form that the user enters in how many copies of the label they want and the report looks at the form and prints as many as needed. You can hard code this number if you like to always get a "sheet" of labels. The code goes into the print event of the detail section of the report (which is where you should be placing the controls with customer name, address etc..

Private Sub Detail_Print(Cancel As Integer, FormatCount As Integer)
If [Forms]![MyFormName]![txtCopies] = 0 Or IsNull([Forms]![MyFormName]![txtCopies]) Then
Me.NextRecord = True
Me.MoveLayout = False
Me.PrintSection = False
Else
If PrintCount < [Forms]![MyFormName]![txtCopies] Then
Me.NextRecord = False
End If
End If
End Sub
Joe Miller
joe.miller@flotech.net

 

[Krash878]

Thanks Joe!

Kenny