Seleccionemos del botón de lista Object --- New Subroutine/Function ---
Y digitemos el nombre Seccion de Mensajes y digitemos el siguiente código:

rem ' -----------------------------------------------------------------
rem ' Seccion de Mensajes
rem ' -----------------------------------------------------------------

Seccion_de_Mensajes:

Impresora_Ocupada:
Resp=msgbox("La Impresora no esta lista",Info_Icon,"Información")
return

Del botón de lista Object seleccione Form 101 frm_Compras, luego del botón de lista Control seleccione INPUTN 108 Id_Costo y después del botón de lista Event seleccione
Control Lost Focus y adicione el siguiente código:

Gosub Grabar

Luego sigamos el mismo procedimiento para agregar más código de evento a los siguientes controles, del botón de lista Control seleccione el control Tool Button 113 Id_Nuevo y agregue lo siguiente al evento Tool Button Pushed:

Gosub Limpiar_Pantalla

Del botón de lista Control seleccione el control Tool Button 114 Id_Print agregue lo siguiente al evento Tool Button Pushed:

Pchan=unt
Open (Pchan,mode="PREVIEW,COLS=132",err=Impresora_Ocupada)"LP"
Goto Imprimir_Reporte

Del botón de lista Control seleccione el control Tool Button 115 Id_Eliminar agregue lo siguiente al evento Tool Button Pushed:

Print (gb__sysgui)'clrtitle'(Id_Codigo,Id_Descripcion,Id_Cantidad,Id_Costo)

Del botón de lista Control seleccione el control Tool Button 117 Id_Salir agregue lo siguiente al evento Tool Button Pushed:

gb__eoj = true

Del botón de lista Control seleccione Form 101 frm_Compras agregue lo siguiente al evento Window Closed:

gb__eoj = true

Para Finalizar del botón de lista Object selecione End of Job Code y agregue el siguiente código:

rem ' -----------------------------------------------------------------
rem ' EOJ
rem ' -----------------------------------------------------------------

release

Compilemos nuestro programa presionando el botón Build Program y luego corramos el programa presionando el botón Run Program.