ارائه گزارش بوسیله پرینت

[pishraw]

با سلام خدمت اساتید و دوستان عزیز

عزیزان بنده سوالی داشتم در خصوص ارائه گزارش که از طریق فایل زمیمه مطرح نموده ام خواهشاً دوست عزیز راهنمایی کنید.
با تشکر

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

[Ali Parsaei]

سلام،
من در چنين مواقعي اقدام به ضبط يک ماکرو مي کنم بعد در ستون مربوطه فيلتر را اعمال و بعد پرينت مي گيرم و بعد فيلتر را بر مي دارم و ماکرو را قطع مي کنم. در اين صورت هرگاه ماکرو انجام شود يک پرينت فقط از بدهکاران خواهيد داشت. البته اگر فقط بخواهيد پرينت پريويو را ببينيد اين روش به کار نمي آيد، ضمنا" چرافايلتان را با پسوند فايلهاي باينري (xlsb) سيو کرده ايد؟!

[pishraw]

با درود . جناب پارسا عزیز ممنون از پاسخگویی شما . بنده هم از روش فیلتر جهت پرینت استفاده می کنم ولی سوال بنده بحث کد نویسی هستش می خواهم از طریق vba دستوری نوشته شود که فقط اسامی بدهکاران با توجه به ستون j چاپ شود.

[pishraw]

از اساتید محترم که در حوزه برنامه نویسی فعالیت دارند ممنون میشم جوابی ارائه کنند
با تشکر

[Nima]

دوست عزیز با استفاده از Advanced Filter یک ماکرو ضبط کنید و از طریق اون کاری رو که مورد نظرتون هست انجام بدید.

[MEYTI]

از کد زیر استفاده کن

    ActiveSheet.ListObjects("Table1414").Range.AutoFilter Field:=10, Criteria1 _
        :="<>0", Operator:=xlAnd
Worksheets("Sheet2").PrintPreview

[pishraw]

با سپاس از جناب meyti عزیز اگه زحمتی نیست لطفاً یک نمونه از اجرای کد را ضمیمه کنی ممنون میشم . چون برام اجرا نشد
با تشکر

[Nima]

با سپاس از جناب meyti عزیز اگه زحمتی نیست لطفاً یک نمونه از اجرای کد را ضمیمه کنی ممنون میشم . چون برام اجرا نشد
با تشکر

فایل پیوست را ملاحضه بفرمائید:

[pishraw]

سپاس نیما عزیز