كود طباعه بشرط

**أيهاب ممدوح** · يناير 8, 2012

كود طباعه بشرط عدم طباعه الصفوف التي لا تحتوي علي بيانات بناء علي خليه معينه اذا كانت فارغه لا يتم طباعه الصف بالكامل

وفي الملف المرفق نريد طباعه الصفحه ولكن اذا كانت الخليه ig فارغه لا يتم طباعه الصف

ويتم 'طباعه كافه الصفوف اذا كانت الخليه ig المقابله للصف بها بيانات

**الـعيدروس** · يناير 8, 2012

اين هيا خلية ig ؟


If [G1].Value <> Empty Then

Range("A1:C1").PrintOut

End If

تم تعديل يناير 8, 2012 بواسطه alidroos

**أيهاب ممدوح** · يناير 12, 2012

اخواني الاعزاء

اريد كود طباعه ولكن بشرط اذا كان الصنف رصيده صفر لا يقوم بطباعه الصف بالكامل والشرط الثاني يقوم بطباعه اليوم الذي يظهر فقط من خلال القائمه المنسدله بمعني لو اخترت يوم 5 في الشهر يطبع يوم 5 فقط واذا كان الصنف رصيده صفر لا يطبعه هو الاخر

شكرا

**أيهاب ممدوح** · يناير 13, 2012

للرفع

**أيهاب ممدوح** · يناير 13, 2012

up

**أيهاب ممدوح** · يناير 13, 2012

رفع

**احمدزمان** · يناير 13, 2012

اخي الكريم دائما/ ابو نصار جزاك الله كل خير

اخ ايهاب

هنا تستخدم التصفية وتختار منها اليوم

والتصفية لعمود الرصيد

تختار مخصص ومنه تحدد لايساوي 0 صفر

يظهر لك البيانات المطلوبة

ثم تطبع

**أيهاب ممدوح** · يناير 14, 2012

اخي احمد زمان شكرا علي الحل الجميل

لكن كنت اريد حل بالكود يقوم بطباعه ما ينتجع عن الاختيار من القائمه المنسدله ولا يطبع الصف الذي يكون الرصيد به صفر

شكرا

**احمدزمان** · يناير 14, 2012

السلام عليكم

اخ ايهاب

على ما اذكر سبق وأن عملنا كود التاريخ لهذا الملف

**أيهاب ممدوح** · يناير 15, 2012

اخي احمد زمان

بالفعل موجود الكود الخاص بالقائمه المنسدله ولكن هذا موضوع منتهي

الجديد هو الطباعه بمعني اني اختر من القائمه التاريخ المطلوب ويظهر لي واذا اردت طباعته مباشر لابد من ان اقوم بتحديد الحدود للطباعه لذلك المطلوب عندي اختيار اي يوم من القائمه سوف يظهر هذا اليوم وذلك موجود بالفعل لذلك اريد كود للطباعه وتحديد مدي الطباعه التي تظهر في التاريخ المختار ولا يطبع الصف الذي به الرصيد =0

شكرا

**احمدزمان** · يناير 15, 2012

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

اخ ايهاب

صباح الفل و الورد و الطعمية

كدة كلام جميل وزي العسل

طيب ممكن ترسلي الملف الي فيه الكود السابق حق التاريخ

وانا اكمل عليه ((اذا سمحت))

**أيهاب ممدوح** · يناير 15, 2012

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

اخ ايهاب

صباح الفل و الورد و الطعمية

كدة كلام جميل وزي العسل

طيب ممكن ترسلي الملف الي فيه الكود السابق حق التاريخ

وانا اكمل عليه ((اذا سمحت))

اخ احمد

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

وصباح الورد وصباح العسل وصباح بتغني كمان

اولا اشكرا علي كرم اخلاقك وحسن تعاونك

الملف مرفق في المشاركه الاولي

وسوف ارفقه مرة اخري

ehab.rar

**احمدزمان** · يناير 15, 2012

السلام عليكم

اخي ايهاب

انا من المدينة المنورة ولست من الأحساء

في المرفق

يجب التخلص من دمج الخلايا لقائمة الإجمالي

اختار الشهر ثم اضغط على زر الطابعة

اضفنا هذا الجزء للكود


ER = ActiveSheet.UsedRange.Rows.Count

CC = ((x1 - 1) * 5) + x1 * 3 + 1 + 7

Dim RN As Range

Set RN = Range(Cells(5, CC), Cells(ER, CC))

    RN.UnMerge

    RN.AutoFilter

    RN.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, _

	    Criteria2:="<>"

آمل التجربة واخباري بالنتيجة

ehab.rar

**أيهاب ممدوح** · يناير 15, 2012

اخي احمد

المدينه الاحساء كلها بلد مباركه بارك الله اهل الامه العربيه

بالنسبه للمطلوب تم تنفيذه بنجاح ولكن موضوع الصنف الذي رصيده صفر لقد قمت بعمل تصفيه ولكن عند حمايه الملف لا تعمل التصفيه وبافتراض ان الصنف سوف يتغير رصيده معني ذلك ان اقوم بعمل تصفيه مرة اخري وهذا امر مذعج لانه في حاله نسيانه سوف يترتب مشاكل اخري عليه فرجاء ان يكون تصفيه الصف في الطباعه ولا يتم اخفاءة اثناء العمل ويتم اخفاء في الطباعه ان امكن

وفقك الله ورعاك

وتحياتي الي اهل المدينه (حبيبي يارسول الله )

**احمدزمان** · يناير 15, 2012

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

اخي ايهاب الله يجعل كل ديار المسلمين عمار

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

=========================

عدلنا على الكود بحيث

يعمل التصفية

يطبع

يشيل التصفية

أظن هذا المطلوب

ehab.rar

**أيهاب ممدوح** · يناير 16, 2012

اخي احمد زمان

هذا هو المطلوب بالفعل لكن حدود الطباعه تاتي ناقص عمود ويوجد صفحات اخري لا تندرج ضمن الطباعه من يوم 20 الي اخر الشهر يقوم بطباعه الصنف فقط وما هو معيار تحديد الطباعه هل يدوي ام الكود يعمل ذلك ؟؟

شكرا

**احمدزمان** · يناير 16, 2012

السلام عليكم

اخي الفاضل

الكود يعمل على الصفوف و الأعمدة فقط

ويعطي امر طباعة فقط

ولا يتدخل في ناحية الطباعة

اما الأيام فأنا اخذت نفس الكود السابق للأيام واضفت علية التصفية

مع التحية

**أيهاب ممدوح** · يناير 16, 2012

اخي احمد زمان

الكود القديم مرتبط بالقائمه المنسدله معينه واذا اردت نقل الكود الي ملف اخر لقائمه منسدله اخري اقوم بتغير اسم القائمه في الكود

**أيهاب ممدوح** · يناير 16, 2012

اخي احمد

حذفت باقي الكود وتركت هذا الجزء

Sub az()

er = ActiveSheet.UsedRange.Rows.Count

CC = ((x1 - 1) * 5) + x1 * 3 + 1 + 7

Dim RN As Range

Set RN = Range(Cells(5, CC), Cells(er, CC))

RN.UnMerge

RN.AutoFilter

RN.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, _

Criteria2:="<>"

ActiveSheet.PrintOut

RN.AutoFilter

ActiveSheet.Protect Password:="ehab123"

End Sub

ولقد عمل طباعه وتصفيه ولكن التصفيه لاسم الصنف بمعني لو لا يوجد اسم الصنف لا يطبع الصف ولكن اذا اردت جعله يقوم بتصفيه الرصيد ما الحل ؟؟؟؟؟؟

شكرا

تم تعديل يناير 16, 2012 بواسطه ehabmamdouh

**احمدزمان** · يناير 16, 2012

السلام عليكم

كل المطلوب اخي الفاضل هنا جلب قيمة (x1)

فـ شوف الكود السابق وجيب منه السطر


x1 = .....................................

وحطه في اول هذا الكود

ان شاء الله تظبط

**أيهاب ممدوح** · يناير 17, 2012

بارك الله فيك ياخي احمد واعز الله بك الاسلام والمسلمين

ولو امكن كود تثبيت حدود الطباعه لانه كلما فتحت املف علي اصدار اكسل اخر يقوم بتغير الحدود

شكرا

**أيهاب ممدوح** · يناير 19, 2012

للرفع

**أيهاب ممدوح** · يناير 20, 2012

للرفع

**احمدزمان** · يناير 21, 2012

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

اخي ايهاب اعتذر على التأخير

ولكن لايخفى عليك

الدنيا مشاغل


    ActiveSheet.PageSetup.PrintArea = "A1:I19"

وعدل النطاق حسب حاجتك

تحياتي وتقديري

**أيهاب ممدوح** · يناير 21, 2012

الله يكرمك

لكن كنت عايز رايك في هذا الكود المسجل


Sub Macro3()

'

' Macro3 Macro

' Macro recorded 18/01/2012 by user

'

'

    With ActiveSheet.PageSetup

	    .PrintTitleRows = ""

	    .PrintTitleColumns = ""

    End With

    ActiveSheet.PageSetup.PrintArea = "$b$2:$IQ$1021"

    With ActiveSheet.PageSetup

	    .LeftHeader = ""

	    .CenterHeader = ""

	    .RightHeader = ""

	    .LeftFooter = ""

	    .CenterFooter = ""

	    .RightFooter = ""

	    .LeftMargin = Application.InchesToPoints(0.748031496062992)

	    .RightMargin = Application.InchesToPoints(0.748031496062992)

	    .TopMargin = Application.InchesToPoints(0.984251968503937)

	    .BottomMargin = Application.InchesToPoints(0.984251968503937)

	    .HeaderMargin = Application.InchesToPoints(0.511811023622047)

	    .FooterMargin = Application.InchesToPoints(0.511811023622047)

	    .PrintHeadings = False

	    .PrintGridlines = False

	    .PrintComments = xlPrintNoComments

	    .PrintQuality = 600

	    .CenterHorizontally = True

	    .CenterVertically = True

	    .Orientation = xlPortrait

	    .Draft = False

	    .PaperSize = xlPaperA4

	    .FirstPageNumber = xlAutomatic

	    .Order = xlDownThenOver

	    .BlackAndWhite = False

	    .Zoom = 73

	    .PrintErrors = xlPrintErrorsDisplayed

    End With

End Sub

تسجيل الدخول

كود طباعه بشرط

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

أيهاب ممدوح

الـعيدروس

أيهاب ممدوح

أيهاب ممدوح

أيهاب ممدوح

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

أيهاب ممدوح

أيهاب ممدوح

احمدزمان

أيهاب ممدوح

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information