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

[atrin6040]

با سلام و احترام
نمیدونم از اینکه سوالمو اینجا مطرح کردم درست هست یا نه
من می خوام وقتی مثلا در شیت a1 هستم دکمه پرینت باشه که وقتی روش کلیک می کنم شیت a2 را برام پرینت بگیره بدون اینکه بخوام وارد شیت a2 بشم
ممنون میشم اگه راهنمایی کنید و فایل پیوست رو برام آماده کنید
با تشکر از سایت بسیار خوبتون

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

[mokaram]

با سلام
بهتر بود تو قسمت ویژوال مطرح می کردید
اگر می خواید رنج خاصی را پرینت بگیرید بهتره اول اون ناحیه را تبدیل به تیبل کنید تا منطقه داینامیکی بشه بعد پرینت بگیرید که با ضبط یه ماکرو این کار شدنیه مثل کد زیر

Sub PrintTable()
    Sheet2.Activate
    Range("Table1[#All]").Select
    ActiveSheet.PageSetup.PrintArea = "Table1[#All]"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Sheet1.Activate
End Sub 

اگرم می خواید که کل شیت 2 پرینت گرفته بشه از کد زیر کمک بگیرید

Sheet2.PrintOut 

[Amir Ghasemiyan]

تاپيك به تالار مربوطه منتقل شد

[misammisam]

اگه بخواید بدون اینکه برید داخل شیت 2 ÷رینت بگیرید از کد زیر استفاده کنید

Sheet2.Range("Print_Area").PrintOut Copies:=1, Collate:=True