جزاك الله خير اختي زهرة وهذا مش جديد عليكي
ربنا يبارك فيكم وفي ذريتك
انا فعلا بالامس وبعد محاولت عملت نفس الطريقة
بالشكل ده
Dim file As String
Call TWAIN_LogFile(1)
Call TWAIN_SetHideUI(1)
Call TWAIN_SetIndicators(0)
Call TWAIN_SetJpegQuality(10)
If TWAIN_OpenSource("HP Commercial Scanjet 8250 TWAIN") <> 0 Then
Call TWAIN_SetPaperSize(1)
' If you can't use Me.hwnd, pass 0:
file = Me.ID
Call TWAIN_AcquireMultipageFile(Me.hwnd, "C:\Record\Sader\2007\" & file & ".PDF")
End If
If TWAIN_LastErrorCode() <> 0 Then
Call TWAIN_ReportLastError("ÝÔáÊ ÚãáíÉ ÇáãÓÍ")
End If
وهي تقريبا نفس الفكرة
وجزاك الله خير
لكن الحين فيه طلب تاني جزاكي الله خير
وهو اني اعمل ذر في النموذج عند الضغط عليه يروح يفتح نفس الملف اللي عملت له اسكان ، عمال احاول فيها واعتقد انها نفس الفكرة لكن دايما مشكلتي في الاقواس العلامات البسيطة وين تتحط بالظبط
يا ريت المساعدة في النقطة دي
وعلي فكرة الفضل لله ثم حضرتك في انهاء هذا العمل لأني اقتبست بعض الاكود من مواضيعك المفيدة جعلها الله في ميزان حسناتك