سـامي 169 قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 كرما منكم تعديل اول كود لي .. خاص بمعاينه الورق ولكم الشكر Sub معاينه5() Dim AA As Integer AA= عدد_الأوراق ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & AA ActiveWindow.SelectedSheets.PrintPreview [A7].Select End Sub كود معاينه.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 جرب الكود Sub معاينه5() Dim BB As Integer BB = Range("عدد_الأوراق") ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & BB ActiveWindow.SelectedSheets.PrintPreview [A7].Select End Sub رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 بارك الله فيك اخى العزيز أستاذ ياسر رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 عند وضع الكود في الملف لم تظهر معاينات مضبوطه رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 لم أفهم المشكلة وضح بشكل أكثر دقة .. المعاين مضبوط حسب ما تقدمت به في الكود أي أن النطاق (منطقة الطباعة) سيكون A1:L10 طبقاً لملفك رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 اقصد اخي استاذ ياسر معاينه عدد الاوراق التي تمتلئ بالاسماء فقط السؤال بطريقه تانيه كيف اتي بعدد الاوراق بدل عدد الصفوف التي تظهر رابط هذا التعليق شارك More sharing options...
أفضل إجابة سـامي 169 قام بنشر يونيو 8, 2015 الكاتب أفضل إجابة مشاركة قام بنشر يونيو 8, 2015 وصلني هذا الحل السحري لكي يتم معاينه الصفحات المملوءه فقط فأحببت ان اشارك به لعله ينفع احد الاخوة 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 كود معاينه مفيد.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 8, 2015 مشاركة قام بنشر يونيو 8, 2015 الحمد لله أن تم المطلوب حدد المشاركة رقم 7 كأفضل إجابة ليظهر الموضوع مجاب ومنتهي على فكرة ..جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks ومن الأمر Print Area انقر Clear Print Area الخطوات اللي فاتت بمثابة إعادة ضبط لفواصل الصفحات جرب الكود الذي أرفقته وشوف النتائج بنفسك (هتتأكد إن بردو لسه فيه ناقصة ...) رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يونيو 8, 2015 الكاتب مشاركة قام بنشر يونيو 8, 2015 جرب الكود الذي أرفقته وشوف النتائج بنفسك (هتتأكد إن بردو لسه فيه ناقصة ...) اقتباس الغالي استاذ ياسر ايه الناقص ارجو التوضيح رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 8, 2015 مشاركة قام بنشر يونيو 8, 2015 اتبع الخطوات وشوف المعاينة هتختلف ولا زي ما هي يعني جرب الكود وشوف المعاينة وبعد التجربة قم بعمل الخطوات التي أشرت إليها وشوف المعاينة مرة تانية ............. رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يونيو 8, 2015 الكاتب مشاركة قام بنشر يونيو 8, 2015 غيرت عدد اجمالي الطلبه الى 200 فاتت 8 صفحات ضغط على المعاينه اتت ب8 صفحات غيرت الاجمالي كذا مره تاتي بعدد الصفحات سليمه مش فاهمك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 8, 2015 مشاركة قام بنشر يونيو 8, 2015 .جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks ومن الأمر Print Area انقر Clear Print Area هل نفذت هذه الخطوات؟ رابط هذا التعليق شارك More sharing options...
سـامي 169 قام بنشر يونيو 8, 2015 الكاتب مشاركة قام بنشر يونيو 8, 2015 جربتها هي هي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان