If @AskUser ("Do you want to Include Shot Record?", "", "" ) then
{
vRSHIM = @XResultSetSearch(@FN, "Index", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!RecNumber="+ RecNumber)
if(vRSHIM > -1)
{
vSuccess = @Shell ( "RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n " + @Chr (34) + vPrinter1 + @chr (34) )
//AlternateDefaultPrinter (vPrinter1)
WarningLevel(0)
XResultSetOpenForm(vRSHandle, "ShotRecord")
WarningLevel(1)
//vResult = @PrintAform (Print_Singular, Print_No_Background, Print_Orientation_Portrait, Print_No_Dialog, Print_Paper_Letter, 0, 0, 0, 0, 1, 1)
//RestoreDefaultPrinter ( )
FormRunProgram("ShotRecord", "TB3", PROGRAM_EVENT_LE_Enter)
XResultSetClose(vRSHIM)
}
FormExit ("ShotRecord")
}
If the code is in the command button then FormRunProgram ( ) does not seem to run. Is this a normal behavior. It works well if TB3 is text element. Just wondering.