پرینت گرفتن از اطلاعات موجود در لیست باکس

[hooman_tt]

با سلام خدمت اساتید ارجمند
ممکن است سوال بنده تکراری باشد ولی من اول انجمن ها رو گشتم و سایت های دیگر رو هم دیدم ولی چون اطلاعات مفیدی بدست نیاوردم مزاحم وقت شما ارجمندان شدم.
من یک لیست باکس درون یک یوزرفرم دارم و سر ستون هر یک از اطلاعاتش در یک lable نوشته شده است . آیا راهی وجود دارد که دکمه ای به این یوزرفرم اضافه کرد که قابلیت چاپ اطلاعات موجود در آن لحظه لیست باکس را داشته باشد ؟ زیرا اطلاعات نمایش داده شده در آن لیست باکس با تغییر کمبوباکس موجود در آن یوزرفرم تغییر میکند .
آیا میتوان امکاناتی نیز به آن اضافه نمود از قبیل پرینت horizontal و یا vertical ؟
آیا میشود اطلاعات موجود در این لیست باکس یه صورت یک جدول (دارای خطوط Border) و با سر ستون ( از همان لیبیل های موجود در بالای آن لیست باکس ) پرینت گرفته شود ؟
آیا امکان دارد ردیف ها یک در میان رنگی باشند ؟
یا هر امکان جالب و مفیدی که قطعا به ذهن شما خواهد رسید و بنده از آن عاجزم ؟!
در صورت امکان خواهشمندم محبتتان را به حد کمال رسانده و این درخواستهای بنده و یا هر امکان دیگر را در یک نمونه فایل قرار دهید تا با بررسی فایل ، بنده و امثال بنده آموزش دیده و استفاده نماییم .
پیشاپیش از زحمات شما سروران کمال تشکر را نموده و از درگاه خداوند متعال برایتان بهترین ها را مسئلت مینمایم.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Javid Mokhtari]

با سلام.
فاااااااااااااااااااااااا ااااااااااااااااااااااااا یل ... لطفاً...!!

[hooman_tt]

با سلام خدمت استاد ارجمند
با کمال عذرخواهی
سرعت اینترنت بنده بسیار پایین است و حجم فایلم بالاست و توانایی آپلود کردن ندارم .
خواهش میکنم اگر امکان دارد به همین ترتیب کمک بفرمایید .
ممنونم .

[Alexis]

دوست عزیز شما کافیه اطلاعات داخل لیست باکس را به یه شیت ارسال بکنی بعد از اون شیت پرینت بگیری به همین سادگی
نمونه اینکار هم تو انجمن زیاده ( منظور ارسال اطلاعات از لیست باکس به شیت )
باقی کارها هم سلیقه ای هست

[Javid Mokhtari]

برادر شرمنده.دیگه وقت نبود رو جزئیات کار کنم.

Sheet3.Range("a3:j10000").ClearContents
Application.ScreenUpdating = False

For i = 1 To ListBox1.ListCount
    For j = 0 To 9
    Cells(i + 2, j + 1).Value = ListBox1.List(i - 1, j)
   Next j
Next i
            
Application.ScreenUpdating = True
Unload Me
Sheet3.PrintPreview