พอดีไม่ได้เปิด notebook เลยไม่มี .cds ส่งไปให้ (ใช้เครื่อง PC ที่บ้าน)
ผมใช้การใส่ label แล้วเขียน code กำกับ แบบนี้
label ของผมชื่อ lblPrintFromComp
Text := '¾ÔÁ¾ì¨Ò¡à¤Ã×èͧ '+GetSQLStringData('select concat(servername," ...login by ",kskloginname) from onlineuser where onlineid ="'+GetOnlineID+'"');
เอาแบบอ่านออก....
Text := 'พิมพ์จากเครื่อง '+GetSQLStringData('select concat(servername," ...login by ",kskloginname) from onlineuser where onlineid ="'+GetOnlineID+'"');