Put the following code in the On-Click of your Preview button:
Private Sub Preview_Click()
On Error GoTo Preview_Click_Err
DoCmd.Save acForm, "MyForm"
DoCmd.OpenReport "MyReport", acPreview, "", "[IDField]=[Forms]![MyForm]![IDField]"
DoCmd.Minimize acForm, "MyForm"...