الطـاير قام بنشر نوفمبر 12, 2007 مشاركة قام بنشر نوفمبر 12, 2007 السلام عليكم جميعا اخواني الاحباب لدي كود على ذر برنامج الصادر والوارد والذر هذا عند الضغط عليه يقوم بسحب كمية الاوراق داخل الاسكانر ويحولهم ملف واحد PDF وكل ما اريد ان يأخذ رقم الصادر اتوماتك لأنه حاليا يعطيني اسم فاضي وكل مرة اضيف صادر من اللاسكانر يمسح ما قبله لذا ارجو منكم المساعدة في تعديل الكود هذا ليأخذ الرقم تلقائي مرفق صورة الكود للتوضيح رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر نوفمبر 13, 2007 الكاتب مشاركة قام بنشر نوفمبر 13, 2007 جزاكم الله خير الا يوجد رد وحل لهذا الكود ؟؟؟ رابط هذا التعليق شارك More sharing options...
zahrah2016 قام بنشر نوفمبر 13, 2007 مشاركة قام بنشر نوفمبر 13, 2007 (معدل) اخي الفاضل الطاير قم بتجربة هذا الكود بعد التعديل وان شا الله تنحل المشكلة Private Sub أمر149_Click() Dim fileName As String fileName = "C:\Record\Sader\2007\" & Format(Me.ID, "000") & ".pdf" Call TWAIN_LogFile(1) Call TWAIN_SetHideUI(1) Call TWAIN_SetIndicators(0) Call TWAIN_SetJpegQuality(25) If TWAIN_OpenOpenSource("HP Commercial Scanjet 8250 TWAIN")<>0 Then Call TWAIN_SetResolution(25) Call TWAIN_SetPaperSize(1) Call TWAIN_AcquireMultipageFile(Me.hwnd, fileName) End If If TWAIN_LastErrorCode()<>0 Then Call TWAIN_ReportLastError("Unable to scan.") End If End Sub تم تعديل نوفمبر 13, 2007 بواسطه zahrah رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر نوفمبر 14, 2007 الكاتب مشاركة قام بنشر نوفمبر 14, 2007 جزاك الله خير اختي زهرة وهذا مش جديد عليكي ربنا يبارك فيكم وفي ذريتك انا فعلا بالامس وبعد محاولت عملت نفس الطريقة بالشكل ده رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر نوفمبر 14, 2007 الكاتب مشاركة قام بنشر نوفمبر 14, 2007 جزاك الله خير اختي زهرة وهذا مش جديد عليكي ربنا يبارك فيكم وفي ذريتك انا فعلا بالامس وبعد محاولت عملت نفس الطريقة بالشكل ده 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 وهي تقريبا نفس الفكرة وجزاك الله خير لكن الحين فيه طلب تاني جزاكي الله خير وهو اني اعمل ذر في النموذج عند الضغط عليه يروح يفتح نفس الملف اللي عملت له اسكان ، عمال احاول فيها واعتقد انها نفس الفكرة لكن دايما مشكلتي في الاقواس العلامات البسيطة وين تتحط بالظبط يا ريت المساعدة في النقطة دي وعلي فكرة الفضل لله ثم حضرتك في انهاء هذا العمل لأني اقتبست بعض الاكود من مواضيعك المفيدة جعلها الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
zahrah2016 قام بنشر نوفمبر 15, 2007 مشاركة قام بنشر نوفمبر 15, 2007 تفضل اخي الفاضل الطاير عملت لك برنامج خاص بفتح الملفات خذ الأكواد منه وقم بتعديل مسمى مربعات وزر الأمر النص في الكود كما هو لديك . المسار الإفتراضي لموقع الملفات هو C:\Record\Sader\2007 وهذا هو البرنامج قم بالتجربه عليه اولا ثم انقل الأكودا منه za_OpenFile.rar رابط هذا التعليق شارك More sharing options...
الطـاير قام بنشر نوفمبر 18, 2007 الكاتب مشاركة قام بنشر نوفمبر 18, 2007 جزاك الله خير اختي الفاضلة زهرة وجعل كل هذا في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.