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

[أبو العاصم]

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

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

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

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

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

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

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

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

فهل المطلوب قد وصل لكم

تم تعديل يونيو 3, 2015 بواسطه أبو العاصم

[أبو العاصم]

Sub MAN()

Dim I As Integer

For I = Range("V7") To Range("V8")

        Range("T7") = I

    If I <= Range("V8") Then

        ActiveWorkbook.Save

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    End If

Next I

End Sub

[أبو العاصم]

الحمد لله وصلت للكود 

هل من تعديل ليقوم بطباعة الظاهر فقط فى الصفحة الأولى من الفلترة