حسام عبدالمحسن قام بنشر أغسطس 1, 2013 مشاركة قام بنشر أغسطس 1, 2013 السلام عليكم اريد كود لطباعه البيانات الموجودة فى اللست بوكس رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أغسطس 1, 2013 مشاركة قام بنشر أغسطس 1, 2013 لسلام عليكم هي مجرد فكرة تعتمد على نسخ محتويات اليست في مصنف جديد ثم طباعته ثم اغلاق المصنف Sub Test_Print() Dim Tableau() As Variant Dim i As Integer Dim j As Byte Application.DisplayAlerts = False Workbooks.Add Tableau() = ListBox1.List j = ListBox1.ColumnCount i = ListBox1.ListCount Range("A1:" & Cells(i, j).Address) = Tableau() ActiveWorkbook.PrintOut ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أغسطس 2, 2013 مشاركة قام بنشر أغسطس 2, 2013 بارك الله فيك أخي الحبيب أ / شوقي ربيع و نفع بك رابط هذا التعليق شارك More sharing options...
حسام عبدالمحسن قام بنشر أغسطس 2, 2013 الكاتب مشاركة قام بنشر أغسطس 2, 2013 الاستاذ العزيز شوقى ربيع تمت تجربة الكود ولا يعمل لدى فورم بحث وبة لست بوكس كل ما اريدة عند عملية البحث تظهر النتيجة فى اللست بوكس اريد طباعه البيانات الموجودة فى اللست بوكس واشكرك جزيلا رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أغسطس 2, 2013 مشاركة قام بنشر أغسطس 2, 2013 لسلام عليكم هي مجرد فكرة تعتمد على نسخ محتويات اليست في مصنف جديد ثم طباعته ثم اغلاق المصنف Sub Test_Print() Dim Tableau() As Variant Dim i As Integer Dim j As Byte Application.DisplayAlerts = False Workbooks.Add Tableau() = ListBox1.List j = ListBox1.ColumnCount i = ListBox1.ListCount Range("A1:" & Cells(i, j).Address) = Tableau() ActiveWorkbook.PrintOut ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub تحياتي اخي الحبيب ربيع المنتدي // شوقي ربيع فكرة جميلة دائما افكارك فيها الجديد والمفيد بارك الله فيك وجزاك خيرا رابط هذا التعليق شارك More sharing options...
أبو عبد الرحمن سعيد قام بنشر أغسطس 2, 2013 مشاركة قام بنشر أغسطس 2, 2013 بسم الله ماشاء الله رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أغسطس 3, 2013 مشاركة قام بنشر أغسطس 3, 2013 لسلام عليكم الاخ ابوردينة الاخ الحبيب ضاحي الغريب الاستاد الحبيب سعيد برايم لكم مني جزيل الشكر لعبراتكم الجميلة وخالص تحياتي رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أغسطس 3, 2013 مشاركة قام بنشر أغسطس 3, 2013 الاخ ابو ندى الكود يعمل 100/100 كل ماعليك ان تنسخ الكود في الزر الذي خصصته لطباعة وتغيير اسم اليست في الكود حسب اليست التي تريد طباعتها ان كانت غير التي في الكود وهذا مثال على ذالك تحياتي Printe listbox.rar رابط هذا التعليق شارك More sharing options...
حسام عبدالمحسن قام بنشر أغسطس 3, 2013 الكاتب مشاركة قام بنشر أغسطس 3, 2013 الاستاذ الكريم/شوقى ربيع بالفعل الكود يعمل جيدا ولكن لا اتمكن من تركيب الكود على الملف الموجود لدى هل من الممكن ان ارفع الملف لك وتقوم بتركيب الكود لى على الملف فى انتظار الرد وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أغسطس 4, 2013 مشاركة قام بنشر أغسطس 4, 2013 السلام عليكم ارف الملف و سأقوم بتركيب الكود عليه ان شاء الله رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر يناير 15, 2014 مشاركة قام بنشر يناير 15, 2014 اخى واستاذنا شوقى الكود رائع جدا ومستفاد منه انشاء الله بارك الله فيك رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يناير 15, 2014 مشاركة قام بنشر يناير 15, 2014 السلام عليكم و رحمة الله و بركاته جزاك الله كل خير رابط هذا التعليق شارك 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.