محمدي عبد السميع قام بنشر مايو 8, 2012 مشاركة قام بنشر مايو 8, 2012 بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود طباعة بعد المعاينة في هذا الكود البسيط والمفيد سيتم الطباعة بعد ظهور رساله تسألك هل تود الطباعة بعد المعاينة فإذا كانت المعاينة تناسبك قل نعم وان لم تكن تناسبك وتريد التضبيط فقل لا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' هذا الكود للمهندس علي السحيب Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub ودمتم في حفظ الله معاينة طباعة مع امكانية الطباعه.rar 3 رابط هذا التعليق شارك More sharing options...
بوحماد قام بنشر مايو 8, 2012 مشاركة قام بنشر مايو 8, 2012 بارك الله فيك رابط هذا التعليق شارك More sharing options...
aliba2010 قام بنشر أغسطس 1, 2012 مشاركة قام بنشر أغسطس 1, 2012 السلام عليكم و رحمة الله و بركاته و رمضان مبارك اخي ظهر لي خطأ عندما أردت الطباعة و بعدها قمت بالغاء الطباعة لان الطابعة غير موجودة و ذلك بظهر برنامج الفي بي تقبلو مشاركتي بصدر رحب و شكرا 1 رابط هذا التعليق شارك More sharing options...
ابراهيم علي iah قام بنشر أبريل 3, 2013 مشاركة قام بنشر أبريل 3, 2013 مشكور ولك خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
عبد الحميد شقير قام بنشر مايو 25, 2013 مشاركة قام بنشر مايو 25, 2013 لقد أسعدتموني سعادة لامثيل لها جعل الله استاذي الفاضل محمدي أيامك كلها سعادة لاشقاء بعدها أبداً رابط هذا التعليق شارك More sharing options...
سامح رسلان قام بنشر أغسطس 7, 2013 مشاركة قام بنشر أغسطس 7, 2013 ارجوكم عاوز مساعدة انا مش بعرف اكتب اكواد خالص ونفسي افهم الدروس vba ممكن الاساتذة المحترمين يساعدوني رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر مارس 19, 2016 مشاركة قام بنشر مارس 19, 2016 هنا اختصار للكود Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut End Sub 5 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 19, 2016 مشاركة قام بنشر مارس 19, 2016 حمدالله على السلامه اخى على نورت المنتدى من تانى ياريت تحضر معانا دايما كده وترجعوا ايام زمان جزاك الله كل خير اخى 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 19, 2016 مشاركة قام بنشر مارس 19, 2016 أخي الحبيب علي السحيب .. لقد ذهلت عندما رأيت مشاركتك ..طننت في البداية أن الأخ أحمد قام برفع الموضوع ولكن لما قرأت كلامه دهشت وفرحت عوداً حميداً معلمي الغالي علي السحيب .. بارك الله لنا فيك ولا حرمنا الله منك أبداً تقبل وافر تقديري وحبي واحترامي رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر مارس 19, 2016 مشاركة قام بنشر مارس 19, 2016 24 دقائق مضت, علي السحيب said: هنا اختصار للكود Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut End Sub ربنا يبارك فيك يا بشمهندس علي والله لك وحشه يارب ترجع للمنتدى بغزارة علمك امدك الله بالصحة والعافيه رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 19, 2016 مشاركة قام بنشر مارس 19, 2016 أخي الحبيب ناصر سعيد أخيراً اسمك باللغة العربية نور المنتدى ..كدا فرحتين فرحة برجوع أخونا الغالي علي السحيب وفرحة تانية بتغيير اسم الظهور لأخونا العزيز ناصر سعيد تقبلوا جميعاً فائق تحياتي رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 13, 2016 مشاركة قام بنشر يونيو 13, 2016 (معدل) Sub معاينه_طباعه() Dim SS As Integer ''من كنوز العلامة عبد الله باقشير SS = Range("عدد_الأوراق").Value * 34 Range("A1:L" & SS).RowHeight = 24 ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & SS ActiveWindow.SelectedSheets.PrintPreview [A7].Select End Sub كود معاينه مفيد. تم تعديل يونيو 13, 2016 بواسطه ناصر سعيد رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر يونيو 29, 2016 مشاركة قام بنشر يونيو 29, 2016 Sub printpreview1() 'كود معاينة طباعة مطاطي Range("a4:aa" & Cells(Rows.count, "c").End(xlUp).Row).printpreview End Sub Sub print_2() 'كود طباعة مطاطي Range("a4:aa" & Cells(Rows.count, "c").End(xlUp).Row).PrintOut End Sub كود معاينه طباعة مطاطي وكود طباعة مطاطي 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 31, 2016 مشاركة قام بنشر ديسمبر 31, 2016 Sub ماكرو1() For Q = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(Q, 1) = "" And Cells(Q, 2) = "" Then Rows(Q).Hidden = True End If Next Q End Sub المطلوب .. كود لعمل معاينة لصفحة بيانات. المفروض ان الكود بيعمل معاينة للجزء الذي به بيانات من الصفحة ويتجاهل الجزء الخالي من البيانات . الاجابه للمحترم القدير احمد زمان السلام عليكــم ورحمـة الله وبركاتــه ،، اخي الفاضل بحيث يعمل على العامودين A-B فأي عمود منهما به بيانات يبقى موجود تم الحل بـ 3 طرق اختار منها ماتريد 1 - اخفاء الفارغ 2 - حذف الفارغ 3 - في الورقة 2 باستخدام التصفية التلقائية (اخفاء و اظهار) يمكنك تعديل اي كود منهما كما تريد مع التحية RESULT.rar هل يمكن من المحترمين اضافه سطر لتظهر المعاينه ؟ رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 31, 2016 مشاركة قام بنشر ديسمبر 31, 2016 ====================================================== Sub معاينة_ترم_ثانى() Dim LatR As Long LatR = Range("b:b").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row With ActiveSheet .PageSetup.PrintArea = "b2:ab" & LatR ActiveWorkbook.Application.DisplayFullScreen = False ActiveWorkbook.Application.DisplayFormulaBar = True ActiveWindow.SelectedSheets.PrintPreview End With End Sub Sub طباعة_ترم_اول() Dim LatR As Long LatR = Range("b:b").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row With ActiveSheet .PageSetup.PrintArea = "b2:ab" & LatR .PrintOut End With End Sub Sub طباعة_ترم_ثانى() Dim LatR As Long LatR = Range("b:b").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row With ActiveSheet .PageSetup.PrintArea = "b2:ab" & LatR .PrintOut End With End Sub للمحترم الاستاذ عبد الباري البنا رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 8, 2017 مشاركة قام بنشر يناير 8, 2017 اخواني اسلام عليكم عندي مشكله في الحفظ والطباعه اريد تعديل النموذج بالمرفقات ان يحفظ وثم تجي رساله بعد ما يتم الحفظ هل تريد الطباعه وانا اطبع او لا ولكم اجمل تحيه احتاج مساعدتكم اخواني.rar رابط هذا التعليق شارك More sharing options...
فراس البزاز قام بنشر مارس 10, 2017 مشاركة قام بنشر مارس 10, 2017 في 5/8/2012 at 21:33, محمدي عبد السميع said: بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود طباعة بعد المعاينة في هذا الكود البسيط والمفيد سيتم الطباعة بعد ظهور رساله تسألك هل تود الطباعة بعد المعاينة فإذا كانت المعاينة تناسبك قل نعم وان لم تكن تناسبك وتريد التضبيط فقل لا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' هذا الكود للمهندس علي السحيب Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub ودمتم في حفظ الله معاينة طباعة مع امكانية الطباعه.rar في 5/8/2012 at 21:33, محمدي عبد السميع said: عذرا هل استطيع بهذا الكود تعين شيت معين...مثلا شيت رقم 4 ؟ رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 20, 2017 مشاركة قام بنشر يونيو 20, 2017 في ١٩/٣/٢٠١٦ at 22:21, علي السحيب said: هنا اختصار للكود Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut End Sub جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
نثغةثمسخبف قام بنشر يناير 8, 2019 مشاركة قام بنشر يناير 8, 2019 في ٣١/١٢/٢٠١٦ at 22:42, ناصر سعيد said: Sub ماكرو1() For Q = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(Q, 1) = "" And Cells(Q, 2) = "" Then Rows(Q).Hidden = True End If Next Q End Sub المطلوب .. كود لعمل معاينة لصفحة بيانات. المفروض ان الكود بيعمل معاينة للجزء الذي به بيانات من الصفحة ويتجاهل الجزء الخالي من البيانات . الاجابه للمحترم القدير احمد زمان السلام عليكــم ورحمـة الله وبركاتــه ،، اخي الفاضل بحيث يعمل على العامودين A-B فأي عمود منهما به بيانات يبقى موجود تم الحل بـ 3 طرق اختار منها ماتريد 1 - اخفاء الفارغ 2 - حذف الفارغ 3 - في الورقة 2 باستخدام التصفية التلقائية (اخفاء و اظهار) يمكنك تعديل اي كود منهما كما تريد مع التحية RESULT.rar هل يمكن من المحترمين اضافه سطر لتظهر المعاينه ؟ اخي هل يمكن مثلا تعديل الكود باخفاء الصفوف التي تكون قيمة محتوى خليه ما 0 من دون حذفها وان تظهر اذا اصبحت رقم صحيح فوق الصفر رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر يناير 8, 2019 مشاركة قام بنشر يناير 8, 2019 تم إضافة كود معاينة قبل الطباعة جرب هذا RESULT.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها