dy0改成以下试试

iif(file('photo\'+subs(bmh,1,2)+'\'+subs(bmh,3,2)+'\'+allt(bmh)+'.jpg'),'photo\'+subs(bmh,1,2)+'\'+subs(bmh,3,2)+'\'+allt(bmh)+'.jpg','photo\zpbcz.jpg')

我喜欢报表尽量简单一些。不要加数据环境，变量就写一个zp。这样便于程序升级。
用程序生成一个数据临时文件进行打印。当打印量比较大时,比如上千页速度会快很多。还便于选择打印。
SELECT *,SPACE(100) zp FROM dy INTO CURSOR dytmp READWRITE
REPLACE  zp WITH 'photo\zpbcz.jpg' all
REPLACE zp WITH 'photo\'+subs(bmh,1,2)+'\'+subs(bmh,3,2)+'\'+allt(bmh)+'.jpg' FOR file('photo\'+subs(bmh,1,2)+'\'+subs(bmh,3,2)+'\'+allt(bmh)+'.jpg')
REPORT FORM dy TO PRINTER PROMPT  PREVIEW

[此贴子已经被作者于2023-1-9 16:03编辑过]

有照片时能正常打印，那就好办了。改一下表达式就行了。 iif(file(原表达式),原表达式，无照片时的代替照片路径），就行了。
iif(file('photo\'+subs(bmh,1,2)+'\'+subs(bmh,3,2)+'\'+allt(bmh)+'.jpg'),'photo\'+subs(bmh,1,2)+'\'+subs(bmh,3,2)+'\'+allt(bmh)+'.jpg','photo\zpbcz.JPG')

多谢各位！

方法不错