سـامي 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
ياسر خليل أبو البراء قام بنشر يونيو 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
سـامي 169 قام بنشر يونيو 7, 2015 الكاتب قام بنشر يونيو 7, 2015 عند وضع الكود في الملف لم تظهر معاينات مضبوطه
ياسر خليل أبو البراء قام بنشر يونيو 7, 2015 قام بنشر يونيو 7, 2015 لم أفهم المشكلة وضح بشكل أكثر دقة .. المعاين مضبوط حسب ما تقدمت به في الكود أي أن النطاق (منطقة الطباعة) سيكون A1:L10 طبقاً لملفك
سـامي 169 قام بنشر يونيو 7, 2015 الكاتب قام بنشر يونيو 7, 2015 اقصد اخي استاذ ياسر معاينه عدد الاوراق التي تمتلئ بالاسماء فقط السؤال بطريقه تانيه كيف اتي بعدد الاوراق بدل عدد الصفوف التي تظهر
أفضل إجابة سـامي 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
ياسر خليل أبو البراء قام بنشر يونيو 8, 2015 قام بنشر يونيو 8, 2015 الحمد لله أن تم المطلوب حدد المشاركة رقم 7 كأفضل إجابة ليظهر الموضوع مجاب ومنتهي على فكرة ..جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks ومن الأمر Print Area انقر Clear Print Area الخطوات اللي فاتت بمثابة إعادة ضبط لفواصل الصفحات جرب الكود الذي أرفقته وشوف النتائج بنفسك (هتتأكد إن بردو لسه فيه ناقصة ...)
سـامي 169 قام بنشر يونيو 8, 2015 الكاتب قام بنشر يونيو 8, 2015 جرب الكود الذي أرفقته وشوف النتائج بنفسك (هتتأكد إن بردو لسه فيه ناقصة ...) اقتباس الغالي استاذ ياسر ايه الناقص ارجو التوضيح
ياسر خليل أبو البراء قام بنشر يونيو 8, 2015 قام بنشر يونيو 8, 2015 اتبع الخطوات وشوف المعاينة هتختلف ولا زي ما هي يعني جرب الكود وشوف المعاينة وبعد التجربة قم بعمل الخطوات التي أشرت إليها وشوف المعاينة مرة تانية .............
سـامي 169 قام بنشر يونيو 8, 2015 الكاتب قام بنشر يونيو 8, 2015 غيرت عدد اجمالي الطلبه الى 200 فاتت 8 صفحات ضغط على المعاينه اتت ب8 صفحات غيرت الاجمالي كذا مره تاتي بعدد الصفحات سليمه مش فاهمك
ياسر خليل أبو البراء قام بنشر يونيو 8, 2015 قام بنشر يونيو 8, 2015 .جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks ومن الأمر Print Area انقر Clear Print Area هل نفذت هذه الخطوات؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.