Printing multiple forms with 1 button?

[gandalf1]

I would like to print three froms using a button at the end of the third form. How do I do this? Here is what I have:
Private Sub Print_Click()
On Error GoTo Err_Print_Click

Dim stDocName As String
Dim MyForm As Form


stDocName = "Index Performance Appraisal 1"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Print_Click:
Exit Sub

Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click


End Sub

Any help would be greatly appreciated!

Justin

 

[JoaoTL]

Hi, try this


Docmd.OpenForm("YourForm1&quot
' If the Form is Open Works also
YourForm.PrintForm

Docmd.OpenForm("YourForm2&quot
YourForm.PrintForm

....
....
Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access