أستيكا قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 السلام عليكم و رحمة الله اخوانى الاعزاء برجاء الاطلاع على المرفق والتكرم بعمل زر طباعة لكشف الحساب بحيث يتم اخفاء الصفوف الفارغة قبل الطباعة مع الشكر Vendors.rar رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 أخي الفاضل بحسب سؤالك إليك هذا الكود الخاص بالأستاذ محمود الشريف Sub Printing() Rows([Row] & ":38").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:38").EntireRow.Hidden = False End Sub وإليك كود أخر وأعتذر عن تقديم اسم صاحبه With Sheets("كشف 1") With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 وإليك الموضوع في الرابط التالي قد يفيدك إن شاء الله http://www.officena.net/ib/index.php?showtopic=51423&page=2&hl=%2B%D8%A7%D9%84%D8%B5%D9%81%D9%88%D9%81+%2B%D8%A7%D9%84%D9%81%D8%A7%D8%B1%D8%BA%D8%A9+%2B%D8%B9%D9%86%D8%AF+%2B%D8%A7%D9%84%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9#entry345493 رابط هذا التعليق شارك 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.