طلب كود طباعة

[حسام عبدالمحسن]

السلام عليكم

 

اريد كود لطباعه البيانات الموجودة فى اللست بوكس

[شوقي ربيع]

لسلام عليكم

هي مجرد فكرة تعتمد على نسخ محتويات اليست في مصنف جديد ثم طباعته ثم اغلاق المصنف

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

تحياتي

[أبو ردينة]

بارك الله فيك أخي الحبيب أ / شوقي ربيع  و نفع بك

[حسام عبدالمحسن]

الاستاذ العزيز شوقى ربيع

تمت تجربة الكود ولا يعمل

 

لدى فورم بحث وبة لست بوكس كل ما اريدة عند عملية البحث تظهر النتيجة فى اللست بوكس اريد طباعه البيانات الموجودة فى اللست بوكس

واشكرك جزيلا

[ضاحي الغريب]

لسلام عليكم

هي مجرد فكرة تعتمد على نسخ محتويات اليست في مصنف جديد ثم طباعته ثم اغلاق المصنف

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

تحياتي

اخي الحبيب ربيع المنتدي // شوقي ربيع

فكرة جميلة

دائما افكارك فيها الجديد والمفيد

بارك الله فيك وجزاك خيرا

[أبو سجده]

بسم الله ماشاء الله

[شوقي ربيع]

لسلام عليكم

الاخ ابوردينة
الاخ الحبيب ضاحي الغريب
الاستاد الحبيب سعيد برايم

لكم مني جزيل الشكر لعبراتكم الجميلة وخالص تحياتي

[شوقي ربيع]

الاخ ابو ندى

الكود يعمل 100/100

كل ماعليك ان تنسخ الكود في الزر الذي خصصته لطباعة

وتغيير اسم اليست في الكود حسب اليست التي تريد طباعتها ان كانت غير التي في الكود 

وهذا مثال على ذالك

تحياتي

Printe listbox.rar

[حسام عبدالمحسن]

الاستاذ الكريم/شوقى ربيع  بالفعل الكود يعمل جيدا

ولكن لا اتمكن من تركيب الكود على الملف الموجود لدى

هل من الممكن ان ارفع الملف لك وتقوم بتركيب الكود لى على الملف

فى انتظار الرد

وجزاك الله كل خير

[شوقي ربيع]

السلام عليكم

ارف الملف و سأقوم بتركيب الكود عليه ان شاء الله

[إبراهيم ابوليله]

اخى واستاذنا شوقى

الكود رائع جدا

ومستفاد منه انشاء الله

بارك الله فيك

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته

 

جزاك الله كل خير