چاپ گرفتن از شیت مخفی

[Mehdi Khan]

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

[akm1093786]

سلام .
ابتدای ماکرو شیت رو از مخفی بودن در بیار
بعد چاپ های مد نظر رو بگیر
در انتهای ماکرو هم شیت رو مخفی کن .
این یک مدل از کاری که می خوای انجام بدی

[misammisam]

سلام
برای PrintPreview گرفتن از محدوده شیت مخفی شده :

Private Sub CommandButton1_Click()
Sheet2.Visible = xlSheetVisible
Sheet2.Range("a1:e11").PrintPreview
Sheet2.Visible = xlSheetHidden
End Sub 

برای Print گرفتن از محدوده شیت مخفی شده :

Private Sub CommandButton2_Click()
On Error Resume Next
Sheet2.Visible = xlSheetVisible
Sheet2.Range("a1:e11").PrintOut Copies:=1, Collate:=True
Sheet2.Visible = xlSheetHidden
End Sub