Printing information on a form's Subform

[billheath]

I need to print out the information in a subform on the current form page. The printout method does not allow the selection of a particular record. The print button wizard put in this code:

Dim stDocName As String
Dim MyForm As Form

stDocName = "mysubform"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Unfortunately, this prints out every form in "Mysubform"! I only want the info from the current record.
Thanks, Bill Heath

 

[fmbpcsup]

change to:

DoCmd.PrintOut acSelection

hope this works for you

 

[billheath]

fmbpcsup, I tried acSelection. It only allowed me to select the number of pages that would be printed. I need to be able to selct which record will be printed based on the original form. Thanks, bill

 

[fmbpcsup]

what about changing stDocName to the name of your mainform?
That should print the form's current record and the displayed subform records.