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

[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