Print Subform Records

[bluedollar]

I have a subform which I try to print out using the following code:

Dim stDocName As String
stDocName = "list_quotes_subform"
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut

I apply a filter and orderby on the subform. However when I print out the subform data ALL the records print out regardless of the filter and orderby that has been applied.

Is there a way of printing out the relevant records without using a report??

Any help would be greatly appreciated.

Thanks

Dan