پرینت گرفتن از شیت مورد نظر

[ali719]

من 10 شیت اکسل دارم میخوام برای هر کدام یک چک باکس بگذارم هر چک باکسی را که انتخاب کردم پرینت بگیره مثلا چند شیت خاص را انتخاب می کنم و یک دکمه کنترل هم قرار میدم و وقتی این دکمه را اجرا میکنم این چند شیت را پرینت بگیره . برای اینکار چه کدی را باید بنویسم
با تشکر

[MEYTI]

با سلام دوست عزیز چک باکس هاتو به سلول a1 لینک بده بعد از کد زیر برای پریت استفاده کن

For Each sh In Worksheets

If sh.Range("a1") = True Then

sh.PrintOut
End If
Next