طلب المساعده في طباعة على الأكسل

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

يا ريت من اجابه لأنه سؤال مطلوب جداً

وياريت رقم الفاتورة تتغير تلقائياً

وجزاكم الله خيراً

</a><a href="http://" target="_blank"></a><a href="http://" target="_blank"></a><a href="http://" target="_blank"><A name=OLE_LINK8>[font="Courier New"]

اخي الفاضل

اذا افترضنا ان رقم البداية للعد تم وضعة في A1

وان رقم النهاية للعدد تم وضعة في B1

و ان رقم التعريف لجلب بيانات الطلاب يجب وضعة في الخلية C1

يمكنك استخدام الكود المرفق

آمل التجربة

Sub طباعةمحدد()

<BR><BR><BR><BR>

For AH = [A1] To [B1]

<BR><BR>[C1] = AH

<BR><BR>ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
<BR><BR>LET AH = AH+1

واذا لم يفلح الكود في المطلوب

فضلا هنا ملف اكسل 2003 به مثال مبسط لما تريد عملة

مع التحية

Sub طباعةمحدد()

For AH = [A1] To [b1]

[C1] = AH

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

LET AH = AH+1

Next

Range("A1").Select

End Sub

احمديعقوب كتب:

</a><a href="http://" target="_blank"></a><a href="http://" target="_blank"></a><a href="http://" target="_blank"><A name=OLE_LINK8>[font="Courier New"]

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

‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م

اخي الفاضل

اذا افترضنا ان رقم البداية للعد تم وضعة في A1

وان رقم النهاية للعدد تم وضعة في B1

و ان رقم التعريف لجلب بيانات الطلاب يجب وضعة في الخلية C1

يمكنك استخدام الكود المرفق

آمل التجربة

Sub طباعةمحدد()

<BR><BR><BR><BR>

For AH = [A1] To [B1]

<BR><BR>[C1] = AH

<BR><BR>ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
<BR><BR>LET AH = AH+1

واذا لم يفلح الكود في المطلوب

فضلا هنا ملف اكسل 2003 به مثال مبسط لما تريد عملة

مع التحية

Sub طباعةمحدد()

For AH = [A1] To [b1]

[C1] = AH

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

LET AH = AH+1

Next

Range("A1").Select

End Sub

عزيزي أحمد

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

لقد جربت إقتراحك ولم يعمل، أرجوا التوضيح أكثر وشكرا

عزيزي أحمد

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

لقد جربت إقتراحك ولم يعمل، أرجوا التوضيح أكثر وشكرا

اخي ابو هديل

السلام عليكم

ممكن تضع هنا ملف اكسل 2003 مضغوط ب zip او rar و به مثال على ماتريد

مع تحديد خانات رقم البداية و رقم لانهاية و الخانة الخاصة برقم جلب البيانات

وان شاء الله حاضرين

نرجعلك الملف بالكود جاهز

عزيزي أبو يعقوب

عذرا على تأخري في الرد

ما أريد عمله هو كالمثال التالي على إفتراض أن أول رقم = 115 و آخر رقم =170:

condition 1

if A1=115 B1=170

First request to print the page with value A1=115 then A1+1(115+1) then enter & print, A1+1(116+1) then enter & print, A1+1 then enter & print,A1+1 then enter & print,,,,,,,up to (169+1=170) then enter & print, then stop

Condition 2

& if A1=115 B1=Blank, then print one time only and stop

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

وشكرا

<A name=OLE_LINK7>[font="Courier New"]

اخي الفاضل

هذا مثال

بعد التجربة شغال 100%

اضغط زر طباعة و جرب

آمل ان يكون هذا المطلوب على حسب فهمي

مع التحية و التقدير

Book1.rar

أخي العزيز أحمد أبو يوسف

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

أشكرك جزيل الشكر على الملف والكود فقط قمت بتغيير بسيط في الكود وإستبدت عبارة PrintPreview بعبارة PrintOut فكان لي ما أردت وتمكنت من طباعة الصفحات الواحدة تلة الأخرى.

فشكرا جزيلا لك مرة أخرى وجعله الله في ميزلن حسناتك

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

و علبكم السلام

هذا واجب

واي خدمة

جزاك الله كل خير

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

جزاكم الله خيراً يا غالي ، ما شاء الله تبارك الله

نم فضلك الله الله يباركلك عندي مشكله ربنا يجعلك سبب لحلها

مرفق ملف اكسل ةهتفهم منه طلبي بإذن الله ، وهو أني أريد عند تحديد الصف المراد طبعه وبعد الضغط على الزر البيانات في الصف تطبع في أماكنها في السند ، وهو تكمله لنفس عملك هذا

ويوجد خيارين لا أعرف أيهم الأفضل وهو أن يكون زر واحد لكل الصفوف والمستندات أو زر في أخر كل صف ليطبع صفه ، ( أي واحد من الحلين بسي المشكله تتحل )

إذا لم تقصد قصدي يا ريت تكتبلي تليفونك للاتصال بك

حزاكم الله خيراً

good.rar

السلام عليكم

اخي وحيد

الطلب واضح و مو واضح

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

ثانيا-

1- هل السندات موجودة و مطبوعة و مطلوب ملء خانات الفراغ

او

مطلوب تصميم سند كامل يطبع آليا

وبعدين

2 - بدل مانعبي بيانات السند في جدول

الأفضل

نعبي البيانات على نفس السند ثم ننقل البيانات بعد طباعتها الى الجدول

آمل ان يكون واضح

و في المشاركة الجديدة سوف ارفق لك ملف مثال

mewahid كتب:

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

جزاكم الله خيراً يا غالي ، ما شاء الله تبارك الله

نم فضلك الله الله يباركلك عندي مشكله ربنا يجعلك سبب لحلها

مرفق ملف اكسل ةهتفهم منه طلبي بإذن الله ، وهو أني أريد عند تحديد الصف المراد طبعه وبعد الضغط على الزر البيانات في الصف تطبع في أماكنها في السند ، وهو تكمله لنفس عملك هذا

ويوجد خيارين لا أعرف أيهم الأفضل وهو أن يكون زر واحد لكل الصفوف والمستندات أو زر في أخر كل صف ليطبع صفه ، ( أي واحد من الحلين بسي المشكله تتحل )

إذا لم تقصد قصدي يا ريت تكتبلي تليفونك للاتصال بك

حزاكم الله خيراً

عزيزي Mewahid

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

موضوعك بسيط جدا ولكني أحتاج إلى نسخة أصلية من الرصيد ( بإمكانك كتابة ملغي عليها) وذلك لمعرفة حجم الورق ومقاسات الأسطر وما بينها وحجم الفراغات لتجربة الطباعة وسوف أعمل لك ملفا بسيطا جدا.

عنواني كالتالي إذا رغبت في إرسال نوذج الرصيد:

عيسى محمد عيسى

2949 طريق 3871 مجمع 1038 - البحرين

وأنا في الخدمة وتحت أمرك