xproblema=0 correcto='N' Do While correcto=='N' .And. xproblema<2 Try Select CPRESUP Go Top Report Form FEE_F500 Noconsole To Printer correcto=ALERT('Imprimió correctamente?','SN?') XPROBLEMA=0 Catch xproblema=xproblema+1 Endtry EnddoIf you can't beat them, join them... I probably won't be able to sleep tonight thinking why this error appears but the problem is solved as you see above