DoCmd.OpenReport "1 сторона", acViewNormal If MsgBox("Печатать 2 сторону", vbInformation + vbOKCancel) = vbOK Then DoCmd.OpenReport "2 сторона", acViewNormal End If