Pon el codigo completo de ese procedimiento, asi adivinando esta dificil...
esq si hace todo cuando le das q si te gusrda los datos y cuando le das q no te cierra la ventanita pero siempre aparece ese bendito mensaje
el codigo esta asi:
Load frmPreviewPrompt
frmPreviewPrompt.CRViewer.ReportSource = Report
frmPreviewPrompt.CRViewer.ViewReport
Set frmPreviewPrompt.gsReport = Report
Screen.MousePointer = vbDefault
MDIMainWin.StatusBar1.Panels(1).Text = ""
DoEvents
'Muestra en pantalla lo que va ha imprimir
frmPreviewPrompt.Show 1
rs.Close
db.Close
If MsgBox("La Impresion Fisica de esta Factura, esta Correcta/o?", vbYesNo, "") = vbNo Then Exit Sub
Set rs = Nothing
Set db = Nothing
Set db = OpenDatabase(gsDataBaseName)
y todo lo hace bien pero el problema es q si la persona lo quiere hacer otra cosa no puede por se le cierra