أبو هديل 1

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

13 ردود في هذا الموضوع

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

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

إخواني الأعزاء أرجوا المساعدة ، لدي ملف إكسل لطباعة فواتير يقرأ البيانات من ملف آخر، أريد طباعة فواتير متتالية بتغيير رقم الفاتورة فقط ثم الطباعة. أي أقوم مثلا بإدخال رقم 115 في خلية ثم أضغط على زر الطباعة ثم أقوم بتغيير الرقم إلى 116 ثم طباعة وهكذا على إفتراض حتى أصل إلى رقم 170 مثلا.

بإختصار أريد تحديد أول وآخر رقم ويقوم الإكسل بزيادة 1 إلى نفس الخلية والطباعة بعد كل زيادة حتى الرقم الأخير وهو 170.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

</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

تم تعديل بواسطه احمديعقوب
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
</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

عزيزي أحمد

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

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

عزيزي أحمد

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي ابو هديل

السلام عليكم

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

ما أريد عمله هو كالمثال التالي على إفتراض أن أول رقم = 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

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

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

‏‏‏‏‏‏‏‏‏‏‏‏الخميس‏، 27‏/12‏/1429هـ. الموافق ‏25‏/12‏/08م

اخي الفاضل

هذا مثال

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

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

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

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

Book1.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

هذا واجب

واي خدمة

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

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

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

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

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

good.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم

اخي وحيد

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

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

ثانيا-

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

او

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

وبعدين

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

الأفضل

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
السلام عليكــم ورحمـة الله وبركاتــه

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

عزيزي Mewahid

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .