you can extract the original file name as follows:

sHlp=HInfoMemo(MyFile,element)
lsFilename=ExtractString(sHlp,2)

But I use the following code to print an image direct from a binary memo:

sHlp is string

sHlp=HInfoMemo(MyFile,element) // where element is the memofield
IF ExtractString(sHlp,1)="IMG" THEN
...iPrintImage(MyFile.element,0,iYPos(),iPageWidth(),iPageHeight(),0)
END

This is code from Stefan Bentvelsen given in a forum posting

Extracting and printing an image from an image control

Other