create a property on form2:
Public Property Let PrintStatement(ByVal strValue As String)
Print strValue
End Property

on form1 do:
Private Sub Command1_Click()
Dim x As Integer
Form2.Show
For x = 1 To 10
Form2.PrintStatement = "Data " & x
Next
End Sub

Form2 has to be showing before printing to it.
Wayne