Generate report, using check boxes or query

[rumenrs]

I figure how to fix..




And if somebody want to refresh the form, can use Event on Mouse click:


Private Sub Print_current_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)


On Error GoTo Err_Print_current_MouseUp




DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70


Exit_Print_current_MouseUp:
Exit Sub


Err_Print_current_MouseUp:
MsgBox Err.Description
Resume Exit_Print_current_MouseUp


End Sub