Obli - Presto and another question ! Your idea worked as follows:
Private Sub Command85_Click()
Dim strCriteria As String
strCriteria = "[Code]=[Forms]![Video Productions]![Code]"
DoCmd.OpenReport "Workorder", acPreview, , strCriteria
DoCmd.PrintOut acPages, 1, 1, , 1
End Sub
The form prints...