Üstadlar sorunu çözdüm.


Aşağıdaki kodu grupladığım alanın üstbilgi kısmının Yazıldığında özelliğine eklediğimde çalıştı.


Private Sub GrupÜstbilgisi0_Print(Cancel As Integer, PrintCount As Integer)

Dim DosyaAdi, Dosya As String

DosyaAdi = Me.ParcaKodu
Dosya = Dir("\\MERKEZ0\DATA\Resimler\" & DosyaAdi & ".*", 1)
If Dosya = "" Then
Dosya = Dir("\\MERKEZ0\DATA\Ata\Resimler\" & DosyaAdi & ".*", 1)
If Dosya = "" Then
rsmStok.Picture = "\\merkez0\data\Resimler\YOK.BMP"
Else
rsmStok.Picture = "\\Merkez0\data\aTA\Resimler\" & Dosya

End If
Else:
rsmStok.Picture = "\\Merkez0\data\Resimler\" & Dosya
End If
End Sub