xCardMemNumber is int
HRead (Members,hRecNumCurrent)
//info(Members.Member_Number)
QRY_MembersCardprint.ParamMember_Number = Members.Member_Number
//info(QRY_MembersCardprint.ParamMember_Number)
HExecuteQuery(QRY_MembersCardprint)
//Trace("YResolution = " + iParameter(iYResolution))
iDestination(iViewer)
//iParameter(iYResolution, 300)
iPrintReport(RPT_Card)