Ben de aşağıdaki kodu hazırlamıştım ama bende çalışmadı. Debug ettiğimde hiç koda uğramadı.
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
rsmStok.Picture = IIf(Len(Dir("\\MERKEZ0\DATA\Resimler\" & Me.ParcaKodu & ".jpg", vbNormal)) > 0, Nz("\\MERKEZ0\DATA\Ata\Resimler\" & Me.ParcaKodu & ".jpg", ""), Nz("\\merkez0\data\Resimler\YOK.BMP", ""))
Ben resimde de belirttiğim gibi raporu AnalizNo adındaki bir alana göre grupladım. Resmi de AnalizNo Üstbilgi kısmında gösteriyorum. Yukarıdaki kodu raporun open olayına yazdığımda da "değeri olmayan bir ifade girdiniz" şeklinde hata veriyor.
[img]
