[حل شده] ماکرو جهت پرینت

[general007]

با سلاو و احترام
در فایل پیوست جهت پرینت تعداد صفحات در سلول i5 در ج میشود
اما با این حال فقط یک صفحه پرینت می شود
در فایل از ماکرویی که دوستان در سایت قرار داده بودن استفاده شده
در ضمن فایل شیت پروتکت می باشد
رمز فایل 123
با تشکر

[generalsamad]

با سلام
اینطور کد را تغییر دهید

Sub test()
Dim xx As Integer
xx = Range("i5").Value
    ActiveSheet.PageSetup.PrintArea = "$A:$h"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=xx, Collate _
        :=True, IgnorePrintAreas:=False
End Sub 

[general007]

با سلام
تغییرات رو اعمال کردم اما باز هم ,وقتی در سلول ( i5 ) مثلا عدد دو را تایپ میکنم از روی فرم فقط یک صفحه پرینت میگیرد
با تشکر

[generalsamad]

با سلام
با پرینتر انجام دادید یا پرینتر مجازی؟
من همین کد رو با پرینتر تست کردم جواب داده
اگه به جواب نرسیدید تا کد دیگری را تست کنیم

[general007]

سلام مجدد
با پرینتر تست کردم ( هم روسیستم منزل ) هم اداره فقط یک صفحه پرینت میشود
با تشکر

[generalsamad]

من کد بالا را با پرینتر مجازی هم امتحان کردم درست کار کرد
با Microsoft Print to PDF

[general007]

دوست عزیز امکانش هست در فایل پیوست اصلاح بفرمایید
در کل پرینت گرفته میشود (اما وقتی محدوده a1:h31 ) مثلا سه نسخه پرینت میخوایم و عدد 3 را در سلول i5 تایپ میکنم باز هم فقط یک نسخه پرینت گرفته میشود
شاید مشکل از سیستم من باشه
ممنون بابت وقتی که در اختیار من قرار دادید

[generalsamad]

به تعداد مقداری که در سلول i5 فایل پی دی اف استخراج میکنه البته با Microsoft Print to PDF

[general007]

حتی خروجی pdf هم که میگیرم باز هم فقط یک صفحه در فایل خروجی میباشد
امکانش هست فایل پیوست را اصلاح بفرمایید تا مجدد چک کنم
تشکر از شما

[generalsamad]

مجدد کدها را تست کردم و تعداد پرینت طبق مقدار سلول i5 انجام میشود
شاید کدی که استفاده میکنید روی فایل اصلیتون اعمال نکنید

[general007]

د بالا رو در اکسلی جدید و فرمی دیگر تست کردم درست کار میکند
من در فرم اصلیم کدی جهت printpreview دارم ایا احتمالش هست که زمان اجرا با این کد تداخل داشته باشه و کد عمل نکند

                                           Sub Print_sheet()Sheet1.ActivateRange("A1:H31").Printpreview
End Sub