دستور چاپ برای شیت پنهان شده

**حسام بحرانی** · 2019/12/06, 12:36

Hide --->Unhide --->Hide

سلام
خُب شاید ساده ترین راه حل این باشه که دستوری بنویسید که ابتدا شیت Hide شده رو Unhide کنه و پس از اِعمال چاپ مجدداً شیت رو پنهان کنید.
موفق باشید.

**behnamsa8309** · 2019/12/06, 20:40

ارسال سوال

باسلام و تشکر از حسن توجه مهندس بحرانی عزیز به سوالات و ارائه پاسخهای کاربردی ایشان
مهندس عزیز فرمولی که واسم ارسال کردین فکر می کنم به کارم بیاد حالا یه زحمت دیگه واستون دارم
اولا می خوام هنگام چاپ Print Preview رو نشون بده
دوما می خوام از شیت پنهان شده فقط محدوده خاصی پرینت بشه مثلا b1:q20 که نمی دونم باید در کجای فرمول زبر که خودتون زحمتش رو کشیدن تایپ کنم . اگه زحمتی نیست فرمول جدیدی که این دو نکته رو هم داشته باشه واسم بفرستین که دنیا ممنون و سپاسگزارم . موفق و شادمان باشید

کد PHP:


Sub Print_Hidden()
   Dim Sht As Worksheet
   Application.ScreenUpdating = False
   For Each Sht In Sheets(Array("sheet2"))
      Sht.Visible = True
      Sht.PrintOut Copies:=1, Collate:=True
      Sht.Visible = False
   Next Sht
   Application.ScreenUpdating = True
End Sub

**behnamsa8309** · 2019/12/09, 00:41

باسلام ،دوستان مشکل پرینت گرفتن بنده از محدوده خاص از شیتی که شیت پنهان شده هنوز حل نشده ضمن تشکر از توجه آقای بحرانی عزیز که سوال اول بنده رو پاسخ دادند جهت حل مشکل این حقیر سوال خودم رو اینطور ادامه می دم . من یه به برنامه برای انتخاب واحد دبیرستان درست کردم که دارای یازده شیت است و با ماکرو نویسی بجای شیتها از دکمه ها استفاده کردم بدین صورت که بقیه شیتها پنهان بشن ، حالا می خوام از یکی از شیتها با دکمه ای که بنام print نام گذاری کردم ، فرم انتخاب واحد رو از شیتی که اسم اون شیت هم printگذاشتم و hideهم هست محدوده خاصی از اون رو مثلا b1:q20 رو چاپ کنم . دوستان عزیز اگه فرمولش رو برام بفرستین ممنون میشم . موفق و پایدار باشید.

**behnamsa8309** · 2019/12/10, 01:25

حل شدن مشکل

نوشته اصلی توسط حسام بحرانی

سلام دوست عزیز
از این کد استفاده کنید شاید پاسختون رو بده:

کد PHP:

Sub Print_Hidden() Dim Sht As Worksheet Application.ScreenUpdating = False For Each Sht In Sheets(Array("print")) Sht.Visible = True Sht.PrintPreview Sht.PageSetup.PrintArea = "B1:Q20" Sht.Visible = False Next Sht Application.ScreenUpdating = True End Sub

درصورتی که پاسخ رو دریافت کردید تاپیک رو حل شده کنید درغیر اینصورت عنوان کنید. قطعاً دوستان من که مهارت بیشتری در VBA دارند شما را بهتر راهنمایی می کنند.
موفق باشید.