اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب تعديل على كود لجلب البيانات والطباعة


الردود الموصى بها

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

أتوجه أولا بالشكر الجم للإخوة ا/ ياسر خليل ا/ بن عليه حاجى 

وجميع القائمين على هذا الصرح الكبير

تبقى على إتمام ملف الخزينة والإيصالات 

كود لطباعة الإيصالات

وهو أحد الكودين التاليين 

الكود الأول قمت بإرفاقه فى الملف المطلوب تعديله على الكود هو 

1- دبلرة الكود بمعنى ان يقوم بعمل التسلسل مرتين مرة فردى فى T7 والاخرى زوجى فى T30
2- جعل معيار البدايه والنهاية فى خلايا شيت الاكسيل وليس محرر الأكواد
3- أن يفصل بين كل مرة تسلسل وأخرى بأمر SAVE 
================================================
الكود الثانى هو من أعمال أحد المشاركين الأفاضل على منتدانا الغالى
وهو كود للطباعة مكون من ثلاث أجزاء
الأول طباعة الشاشة الحالية
الثانى طباعة الكل 
الثالث طباعة الكل مع معاينة الطباعة
المطلوب تعديله 
1- ان يقوم الكود بعمليه جلب البيانات مرتين لان الايصال 1/2 صفحة
2- وضع معيار ( للبدايه وللنهاية للبيانات التى سيتم جلبها من الصفحة الأولى ) فى خلايا شيت الاكسيل لان الكود يطبع الكل 

 

CASH _ CYCLE _ RICIPT.rar

PAYROLL AMENDED.rar

رابط هذا التعليق
شارك

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

نظرا لحاجتى الشديدة قمت بطرح التالى

الكود المطلوب تعديله

Sub Printing()]

Dim I As Integer
For I = 1158 To 1160
المطلوب تعديل الكود ليكون معيار البداية هو الخلية V7 ومعيار النهايه هو الخلية V8 
        Range("T7") = I
    If I <= 1160 Then
هنا معيار النهايه سيحدد فى الكود V8 
        ActiveWorkbook.Save
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
Next I
[End Sub
فهل المطلوب قد وصل لكم
تم تعديل بواسطه أبو العاصم
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information