*Rightclick do myshcut.mpr with this *myshcut.mpr lparameters toObject DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR _med_cut OF shortcut PROMPT "Cu\<t" ; KEY CTRL+X, "Ctrl+X" ; MESSAGE "Removes the selection and places it onto the Clipboard" DEFINE BAR _med_copy OF shortcut PROMPT "\<Copy" ; KEY CTRL+C, "Ctrl+C" ; MESSAGE "Copies the selection onto the Clipboard" DEFINE BAR _med_paste OF shortcut PROMPT "\<Paste" ; KEY CTRL+V, "Ctrl+V" ; MESSAGE "Pastes the contents of the Clipboard" DEFINE BAR _med_slcta OF shortcut PROMPT "Se\<lect All" ; KEY CTRL+A, "Ctrl+A" ; MESSAGE "Selects all text or items in the current window" DEFINE BAR 5 OF shortcut PROMPT "Print" ; KEY CTRL+P, "Ctrl+P" On selection bar 5 of shortcut do Printme with toObject.Value ACTIVATE POPUP shortcut function printme lparameters tcPrint create cursor dummy (Edited m) insert into dummy values (tcPrint) report form dummy to printer use in 'dummy'Don't forget to create the report dummy.