طباعة عدة أوراق بشرط

[كريم]

السلام عليكم...

عند عدة ملفات ويوجد بها كمية أوراق عديدة , وهذه الأوراق بها صفحات وفي كلي صفحة جدول أنقل إليها البيانات من صفحة رئيسية . والمطلوب أني في حالة الطباعة أريد كود يطبع لي جميع هذه الجداول . لكن يطبع الجدول الذي به بيانات ، و يطبعه كامل حتى لو أستخدم صف واحد فقط .

هل يمكن فعل ذلك ؟؟؟

[هادى محمد المامون سالم]

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

أخى كريم

هذا الكود لمعاينه طباعه المجال

و تستطيع أستبدال المجال و أسم الورقه بالمجال الذى تريده

Sub mPrint()
    Sheets("Sheet1").Range("A1:B5").PrintPreview
End Sub

السلام عليكم

[كريم]

السلام عليكم...

أشكرك أستاذي هادي على هذا الكود الرائع لكن عندي بعض الأسئلة أريد الإجابة عليها.

أولا وصفي السابق هل يكمن من خلال الملف الذي به الصفحة الرئيسية أن أطلب أمر طباعة فيقوم بطباعة أوراق في ملفات أخرى .

ثانيا في حالة عدم نجاح الطباعة من خلال الصفحة الرئيسية سوف أقوم بوضع الكود المذكور في كل ملف . لكن سؤالي أني أريد أن أطبع صفحات من أوراق بشرط وهو أن تكون الخلية مثلا A100 لاتساوي فراغ فقوم بطباعة المدى وهو حسب الكود الموضوع .

ثالثا كيف أستطيع أن أجمع مابين الأكواد مثلا إذا كانت الخلية A100 في الصفحة الأولى تساوي فراغ فأطبع المدى المحدد في الصفحة الأولى , وإذا كانت الخلية A200 في الصفحة الأولى لاتساوي فراغ فأطبع المدى المحدد في الصفحة الأولى وهذا قابل للزيادة ثم ننتقل إلى الورقة الثانية وبنفس الطريقة حتى تنتهي جميع الأوراق الموجودة في الملف.

وآخيرا أتأسف بشده على الإطالة فهذا الموضوع مهم جدا ويهم فئة كبيرة من الناس وشكرا.

[هادى محمد المامون سالم]

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

أولا وصفي السابق هل يكمن من خلال الملف الذي به الصفحة الرئيسية أن أطلب أمر طباعة فيقوم بطباعة أوراق في ملفات أخرى .

هل مكان الملفات ثابت أم تريد أختيار الملف الذى تريد طباعه مجاله بنفسك ؟



السلام عليكم

[كريم]

السلام عليكم...

عندي 10 ملفات موجودة في مجلد واحد بالإضافة إلى ملف الورقة الرئيسية طبعا .

[هادى محمد المامون سالم]

السلام عليكم...

عندي 10 ملفات موجودة في مجلد واحد بالإضافة إلى ملف الورقة الرئيسية طبعا .

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

جرب الملف المرفق لطباعه ثلاثه ملفات

يجب أولا انشاء مجلد بأسم Hady على القرص C

ضع داخله ثلاثه ملفات بأسم File1,File2,File3

و يمكن تغيير اسمائهم و لكن يجب تغيير الاسم فى الورقه أيضا

السلام عليكم

Print_str_01.rar

[كريم]

السلام عليكم...

جزاك الله خير أستاذي هادي.

لكن عند التجريب لم تنجح الطباعة . ولقد قرأت الكود الموضوع وفهمت بعضا منه لكن لم أفهم أجزاء أخرى . فأرجوا منك شرح الكود لكي أقوم بتجربته وأوافيك النتيجة وشكرا .

[هادى محمد المامون سالم]

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

اليك الكود بطريقه أسهل لمعاينه الطباعه

و لكن قبل البدايه يجب انشاء ملف على c باسم File1

Sub StartPrint()
    Dim str As String
    str = "c:\File1.xls"
    Workbooks.Open (str)
    Sheets("Sheet1").Range("A1:B5").PrintPreview
    Workbooks("File1").Close
End Sub

السلام عليكم

[كريم]

السلام عليكم...

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