محمد عبدالسلام قام بنشر أكتوبر 30, 2016 مشاركة قام بنشر أكتوبر 30, 2016 السلام عليكم و رحمة الله وبركاته هذا الكود يقوم بتلوين سطر بمجرد الوقف عليه المشكلة عندا طباعة يتم اظهار الون في الورقة هل من حل لاخفاء اللون في طباعة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Cells.Interior.ColorIndex = xlNone If Target.Cells.Count = 1 Then With Rows(Target.Row).Interior .ColorIndex = 19 .Pattern = xlSolid End With End If End Sub Row.zip رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 30, 2016 مشاركة قام بنشر أكتوبر 30, 2016 وعليكم السلام أخي الكريم محمد جرب الكود التالي في حدث المصنف .. Private Sub Workbook_BeforePrint(Cancel As Boolean) Sh.Cells.Interior.ColorIndex = xlNone End Sub رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 31, 2016 الكاتب مشاركة قام بنشر أكتوبر 31, 2016 (معدل) مشكور اخي ياسر خليل أبو البراء بارك الله فيك رغما وضع الكود في الملف لايزال الون يظهر في ورقة الطباعة شاهد صورة تم تعديل أكتوبر 31, 2016 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
Guest محمد ابو صهيب قام بنشر أكتوبر 31, 2016 مشاركة قام بنشر أكتوبر 31, 2016 (معدل) السلام عليكم ...اخي عبد السلام ...لك وحشة ..انت ومن معاك من طقم الأكسل........كبيرهم وصغيرهم .... اليك ... اذهب الى ما تشاهده في الصورة....... الى خصائص الطباعة ...الى تبويب sheet ثم الى Draft Quality ....وانقر عليها.....واحفظ التعديلات... تم تعديل أكتوبر 31, 2016 بواسطه محمد ابو صهيب رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 31, 2016 الكاتب مشاركة قام بنشر أكتوبر 31, 2016 (معدل) السلام عليكم و رحمة الله وبركاته اهلا وسهلا بيك اخي الكريم محمد ابو صهيب جزاك الله خيرا المشكلة لما أحط علامة صح Draft Quality يتم اخفاء تخطيط الورقة الأعمدة والصفوف تم تعديل أكتوبر 31, 2016 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
Guest محمد ابو صهيب قام بنشر أكتوبر 31, 2016 مشاركة قام بنشر أكتوبر 31, 2016 (معدل) Sub imprime() Dim temp1(), temp2() For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex <> xlNone Then n = n + 1 ReDim Preserve temp1(1 To n) ReDim Preserve temp2(1 To n) temp1(n) = c.Address temp2(n) = c.Interior.ColorIndex c.Interior.ColorIndex = xlNone End If Next c With ActiveSheet.PageSetup .PrintHeadings = True .PrintGridlines = True End With ActiveSheet.PrintPreview For i = 1 To n Range(temp1(i)).Interior.ColorIndex = temp2(i) Next i End Sub تم تعديل أكتوبر 31, 2016 بواسطه محمد ابو صهيب رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 31, 2016 الكاتب مشاركة قام بنشر أكتوبر 31, 2016 جزاك الله خيرا محمد ابو صهيب جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.