Merhaba Arkadaşlar ;
Girilen siparişlerin raporlarını istediğimde ekranda ekteki görüntü çıkıyor ve istenilen rapordaki her bir resimi tek tek sayıyor.Bu görüntüden kurtulmanın bir yolu varmı...Teşekkürler..
Hangi ek? Ben ek göremiyorum...
Kusura bakmayın
resim eklemede sıkıntı yaşıyorum
Sn Malidolu programı eklesen. Saygılar..
Değerli arkadaşlar resim ekleyemiyorum bu nedenle sorun devam ediyor.Saygı bizden.Diyer arkadaşların bahsettiğigibi rar dosyalarını indiremiyorum.indi gibi görünüyor fakat dosyanın içi boş.Bilrmiyorum..
sn malidolu, 3. mesajınıza resim eklemişsiniz, çözümü yazıyorum
Uygulamada açılan ilk forma aşağıdakileri yazıp açıldığında olayına
kodunu yazmayı deneyin.
Kod:
Function Kapat()
Dim sReturn As String
Dim sErr
Dim WS As Object
Set WS = CreateObject("WScript.Shell")
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
Set WS = Nothing
End Function