BUHO ==== DoCmd.OpenReport "TuReporte", acPreview On Error Resume Next DoCmd.RunCommand acCmdPrint DoCmd.Close acReport, "TuReporte"