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
Enddo

If 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

Perhaps any of you could light the darkness of my ignorance.