(22/09/2013, 12:18)aydın3838 yazdı: selam
bugün itibari ile ms Office 2003 e dönüş yaptım
ilgili dosyanıza bakma imkanım yok kodları yollar iseniz bakarım
not dün çalıştırdım ve denedim sorun yoktu
ok. eski sürüm bir bilgisayarda deneyeyim. Teşekkürler.
Kod:
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo hata
If Not IsNull([resim]) Then
Me.Resim10.Picture = [resim]
Else
Me.Resim10.Picture = ""
End If
Exit Sub
hata:
If Err = 2220 Then
Me.Resim10.Picture = ""
Else
MsgBox Err.Description, vbExclamation
End If
End Sub