Report Offensive Message

i used this code but i have 2 subforms and its only printing one form and with none of the data input please help going nuts

Private Sub PRINT_Click()
On Error GoTo Err_PRINT_Click

Dim MyForm As Form
Dim record_num As Long

stDocName = "Invoices"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
record_num = MyForm.CurrentRecord
DoCmd.PrintOut acPages, record_num, record_num


Exit_PRINT_Click:
Exit Sub

Err_PRINT_Click:
MsgBox Err.Description
Resume Exit_PRINT_Click