اريد ان اكتب على الشيك من خلال طابعة كانونMF4450

[السملالي]

بسم الله الرحمن الرحيم

والصلاة والسلام على خير الأنام وآله الأعلام وأصحابه ذوي المكارم العظام

السلام عليكم ورحمة الله وبركاته 

مبارك عليكم العشر ذو الحجة، اعانكم الله وايانا على الوان الطاعة والتجافي عن البعد والمعاصي، والثبات على مرضات الله 

اللهم وفقنا لتغانم فائضات فضلك في الليالي العشر .. يا كريم يا جواد

تحية طيبة ...

لدي طلب من الاخوان ذوي الخبرة في المجال .. اريد ان اكتب على الشيك من خلال طابعة كانونMF4450 والشيك مرفق 

قياس الشيك على ما اعتقد هو 17 *8 والشيكات تجي من البنك لكن المشكلة اني خطي الله يستر والاملاء متوسط ولا اعرف عملية

التفقيط والعملة المستخدمة في بلدي هي أوقية

حاولت عدت مرات على الاكسل لم استطع دائما اقفل الفورم وتطلع الطباعة ماهي في مكانه

 

هاذي مشكلتي اذا كان احد من الاخوه يستطيع المساعدة او التوجية 

والشكر للجميع .. وادامكم الله

 

 

[أم عبد الله]

الأستاذ / السملالي

 

السلام عليكم ورحمة الله وبركاته

 

تابع هذا البرنامج الرائع جداً الخاص بالكتابة على الشيكات وطباعتها لأستاذنا الكبير / ضاحي الغريب جزاه الله خيراً وجعله في ميزان حسناته

 

http://www.officena.net/ib/index.php?showtopic=54033&hl=

[السملالي]

وعليكم السلام ورحمة الله وبركاته

أم عبدالله

جزاكي الله خير وجعلك من اهل الفردوس الاعلى

شكرا على اهتمامك بطلبات الاعضاء

برنامج الاستاذ الفاضل ضاحي الغريب هو برنامج مفيد وقاية في الروعة ولكن لايخدمني حيث اني لا اعرف طريقة

تعديل الملف واضافة الشيك المستخدم لدي وتعديل العمله المستخدمة لدي وقياسات الشيك غير مطابقة للموجود

شكرا لتعاونكم وخدمة مجتمعكم وبنتظر الحل

[طارق محمود]

السلام عليكم
أخي الحبيب
أولا بالنسبة لمقاس الشيك
قابلتني مشكلة مشابهة وحللتها كالتالي

1. صور عدة نسخات للإستخدام والتضبيط
2. قطع الصور المنسوخة لتكون نفس مقاس الشيك
3. جهز بيانات لشيك وهمي علي الإكسل
4. حاول الطباعة عدة مرات مع تغيير هوامش الصفحة في الإكسل ومقاس الورقة علي الطابعة

ستنجح إن شاء الله بعد محاولتين أو ثلاثة
 

ثانيا بالنسبة للتفقيط
إليك هذا الكود تغير فيه العملة والوحدات كما تشاء ثم تضعه في إعدادات الاكسل علي الجهاز

وهذا الكود ليس من أعمالي أنا نسخته من المنتدي (قد يكون لأستاذنا النابغة / عبدالله باقشير)

Function SpellNumber(ByVal MyNumber, _
                  Optional pbNum As Boolean = True, _
                  Optional ptCur As String = "Yuan", _
                  Optional ptDec As String = "Jiao", _
                  Optional ptPlu As String = "")


Dim Curr, Decm, Temp
Dim DecimalPlace, Count
Dim vtPHolder As String


    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "


    '' String representation of amount
    If Mid(MyNumber, 1, 1) = "-" Then
    MyNumber = Mid(MyNumber, 2, Len(MyNumber) - 1)
    End If
    MyNumber = Trim(Str(MyNumber))


    '' Position of decimal place 0 if none
    DecimalPlace = InStr(MyNumber, ".")
    '' Convert decimal part, and set MyNumber to currency amount
    If DecimalPlace > 0 Then
        vtPHolder = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
        If pbNum = True Then
            Decm = GetTens(vtPHolder)
        Else
            Decm = vtPHolder
        End If
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If


    Count = 1
    Do While MyNumber <> ""
       Temp = GetHundreds(Right(MyNumber, 3))
       If Temp <> "" Then Curr = Temp & Place(Count) & Curr
          If Len(MyNumber) > 3 Then
             MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop


    Select Case Curr
        Case ""
            Curr = ""
        Case "One"
            Curr = "One " & ptCur
        Case Else
            Curr = Curr & " " & ptCur & ""
    End Select


    Select Case Decm
        Case ""
            Decm = ""
        Case "One", "01"
            If Curr = 0 Or Curr = "" Then
            Decm = Decm & " " & ptDec
            Else
            Decm = " and " & Decm & " " & ptDec
            End If
        Case Else
            If Curr = 0 Or Curr = "" Then
            Decm = Decm & " " & ptDec & ptPlu
            Else
            Decm = " and " & Decm & " " & ptDec & ptPlu
            End If
    End Select


    SpellNumber = Curr & Decm
End Function


'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Function GetHundreds(ByVal MyNumber)
    Dim Result As String


    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)


    'Convert the hundreds place
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If


    'Convert the tens and ones place
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If


    GetHundreds = Result
End Function


'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Function GetTens(TensText)
    Dim Result As String


    Result = ""                                         'null out the temporary function value
    If Val(Left(TensText, 1)) = 1 Then                  'If value between 10-19
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
            Case Else
        End Select
      Else                                              'If value between 20-99
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty "
            Case 3: Result = "Thirty "
            Case 4: Result = "Forty "
            Case 5: Result = "Fifty "
            Case 6: Result = "Sixty "
            Case 7: Result = "Seventy "
            Case 8: Result = "Eighty "
            Case 9: Result = "Ninety "
            Case Else
        End Select
         Result = Result & GetDigit(Right(TensText, 1)) 'Retrieve ones place
      End If
      GetTens = Result
End Function


'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
    End Select
End Function


Sub list_sheets()
    For i = 1 To Sheets.Count
        ActiveCell(i, 1) = Sheets(i).Name
    Next
End Sub

[السملالي]

وعليكم السلام ورحمة الله وبركاته...

تحية طيبة استاذي الفاضل / طارق  محمود

شكرا عزيزي على مساعدتك في حل المشكلة واعطائي كود العملة سوف اعمل بتوصياتك انشاء الله 

واقوم بالتجربة  والشكر موصول للنابغة الاستاذ / عبدالله باقشير

جعله الله في موازين حسناتكم ورزقنا واياكم النظر الى وجهه الكريم وجميع المسلمين

وتقبلو تحياتي

[عبدالله باقشير]

السلام عليكم

 

الشكر واصل لاخي الحبيب طارق ..........اكرمه الله

 

واحب ان انوه ان هذا الكود ليس لي...وجزاء الله صاحبه خيرا

 

جزاكم الله خيرا ..........احي السملالي

 

تقبلوا تحياتي وشكري

[السملالي]

وعليكم السلام ورحمة الله وبركاته

 

اسعدني مرورك  اخي الكريم

[على]

اين يتم وضع الكود بالتحديد رجاء

[دغيدى]

أخى الكريم

الأخ الفاضل / طارق

أصاب فأجاد لأنها أفضل طريقة

أما الكود يوضع فى مديول

[ضاحي الغريب]

اخي الكريم / 

السلام عليكم

تمت التجربة علي طابعة Hp laser Jet 3050 يمكن تختلف عن الطابعة لديك 

اليك التجربة وحاول تضبيط اماكن الخلايا في الشيت بما يتناسب مع شكل الطباعة لديك

وكما اشاد اخي م / طارق قم بتصوير الشيك عدة صور وقصها بنفس حجم الشيك الاصلي وجرب حتي يضبط معك

او هناك طابعات مخصصة للطابعة علي الشيكات

 

البرنامج بعد تعديله 

 

 

 

الشيك بعد الطباعة

 

الشيكات الأصدار الثاني - أوقية.rar

[السملالي]

الاستاذ الفاضل / ضاحي الغريب 

جزاك الله خيرا وجعلك من الذين لاخوف عليهم ولاهم يحزنون 

جاري التحميل بأذن الله والتجربه  .........

 

وفقني الله ووفقك لما يحبه ويرضاه

[السملالي]

السلام عليكم ورحمة الله وبركاته 

تحية طيبة ....

استاذي الفاضل / ضاحي الغريب

 

تم تحميل الملف المرفق بالامس  وعند محاولت التعديل عن طريق الضغط على F11 + Alt

 يفتح الفيوجل  لاكن يطلب رقم سري عند طلب التعديل على التصميم الملف محمي ضد التعديل

حيث اني اريد تحرير منطقة التاريخ وتحويلها اسفل الخط الموجود تحت لفائدة وبجوارها اضافة اسم الفرع

هل هناك حل اخر . وشكرا ..

ودمتم لحسن تعاونكم ...

[ضاحي الغريب]

 

السلام عليكم ورحمة الله وبركاته 

تحية طيبة ....

استاذي الفاضل / ضاحي الغريب

 

تم تحميل الملف المرفق بالامس  وعند محاولت التعديل عن طريق الضغط على F11 + Alt

 يفتح الفيوجل  لاكن يطلب رقم سري عند طلب التعديل على التصميم الملف محمي ضد التعديل

حيث اني اريد تحرير منطقة التاريخ وتحويلها اسفل الخط الموجود تحت لفائدة وبجوارها اضافة اسم الفرع

هل هناك حل اخر . وشكرا ..

ودمتم لحسن تعاونكم ...

 

عليكم السلام ورحمة الله وبركاته

أخي الكريم / السملالي

اعتذر منك لم انتبه ان محرر الاكواد مغلق

الملف مفتوح بالمرفقات

ان احتجت لشيء لا تترد في طلبه

تقبل تحياتي

الشيكات الأصدار الثاني - أوقية.rar

[السملالي]

بسم الله الرحمن الرحيم 

تحية طيبة استاذي الفاضل /ضاحي الغريب 

 

اتأسف لنقطاعي بسبب قرب موسم الحصاد لدينا 

 

ولكن بعد عدة محاولات  للأسف لم استطع التعامل مع الملف بسبب قلت الخبرة لدي 

 

وجدة  برنامج  Cheque Maker  مع مفتاح التسجيل  واشتغلت عليه ولكن فيه

عيب كتابت الارقام بالحروف حيث عندما تكتب 400000 يكتب  اربعمئة الف

واظن والله اعلم انها اربعمائة الف  .

هل استطيع ان اصحح مثل هاذي الاخطاء في البرنامج وماهي الطريقة اذا امكن ؟

 

واشكر لك حسن المعاملة  واتحرج من كثرة الاستفسارات واشغالك عن ماهو اهم

 

ادامكم الله ونفع بكم المسلمين انه سميع مجيب

[السملالي]

للرفع لعلي اجد الاجابة

جزيتم خيرا