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

[ali719]

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

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

[MEYTI]

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

For Each sh In Worksheets

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

sh.PrintOut
End If
Next