پرینت یک رنج از همه ی شیت ها

[ali65e]

با سلام خدمت دوستان و اساتید گرامی
دوستان فایل اکسلی دارم که به تعداد دانش آموزان شیت در آنقرار دارد.و هر شیت مربوط به یک دانش آموز است.در تمام این شیت ها رنجی با نام karname معرفی کرده ام که در آن قسمت،کارنامه ی دانش آموز قرار دارد.دوستان آیا راهی وجود دارد که بشود ماکرویی نوشت که با اجرای این ماکرو ،این رنج از تمام شیت ها پرینت شود.

[Amir Ghasemiyan]

با سلام خدمت دوستان و اساتید گرامی
دوستان فایل اکسلی دارم که به تعداد دانش آموزان شیت در آنقرار دارد.و هر شیت مربوط به یک دانش آموز است.در تمام این شیت ها رنجی با نام karname معرفی کرده ام که در آن قسمت،کارنامه ی دانش آموز قرار دارد.دوستان آیا راهی وجود دارد که بشود ماکرویی نوشت که با اجرای این ماکرو ،این رنج از تمام شیت ها پرینت شود.

سلام دوست عزيز
قبلا اين سوال چندين بار پرسيده شده. يه سرچ بفرماييد پيدا ميشه.

[ali65e]

سلام دوست عزيز
قبلا اين سوال چندين بار پرسيده شده. يه سرچ بفرماييد پيدا ميشه.

سلام امیر جان
امیر آقا من الان سرچ کردم ولی متاسفانه چیزی که من پیدا کردم پرینت کردن print area های موجود در شیت های مختلف بود .امیر آقا من می خوام از محدودیه سلول هایی که قبلا با کلیک راست کردن رویه آن محدوده، نامگذاری کرده ایم (name a range) پرینت بگیرم.حقیقتش می خوام از کارنامه های بچه ها که توو شیت های مختلف قرار داره پرینت بگیرم.ولی چون تعداد بچه ها زیاد است خیلی وقت گیره که توو شیت هر دانش آموز برم و سپس به رنجه karname برم و سپس پرینت بگیرم.

[Amir Ghasemiyan]

سلام امیر جان
امیر آقا من الان سرچ کردم ولی متاسفانه چیزی که من پیدا کردم پرینت کردن print area های موجود در شیت های مختلف بود .امیر آقا من می خوام از محدودیه سلول هایی که قبلا با کلیک راست کردن رویه آن محدوده، نامگذاری کرده ایم (name a range) پرینت بگیرم.حقیقتش می خوام از کارنامه های بچه ها که توو شیت های مختلف قرار داره پرینت بگیرم.ولی چون تعداد بچه ها زیاد است خیلی وقت گیره که توو شیت هر دانش آموز برم و سپس به رنجه karname برم و سپس پرینت بگیرم.

راحت ترين كار اينه كه شما تو هر شيت يك دكمه print قرار بدي و اون چيزايي كه سرچ كردي رو توش تعريف كني. اگه بخواين هر كدوم تو يك صفحه باشه بهترين كار همينه

ولي اگه همشو بخواين پشت سرم تو هر چند صفحه كه جا شد بگيرين قضيه فرق ميكنه

[ali65e]

راحت ترين كار اينه كه شما تو هر شيت يك دكمه print قرار بدي و اون چيزايي كه سرچ كردي رو توش تعريف كني. اگه بخواين هر كدوم تو يك صفحه باشه بهترين كار همينه

ولي اگه همشو بخواين پشت سرم تو هر چند صفحه كه جا شد بگيرين قضيه فرق ميكنه

بله امیر آقا دقیقا همین قضیه دومی که شما فرمودی مدنظرمه

[Amir Ghasemiyan]

بله امیر آقا دقیقا همین قضیه دومی که شما فرمودی مدنظرمه

فايلتون رو اينجا بذارين تا رو فايل درست كنم براتون

[pishraw]

دوست عزیز فایل ضمیمه را بررسی کنید

[ali65e]

دوست عزیز فایل ضمیمه را بررسی کنید

ممنون جناب pishraw.زحمت کشیده بودی ولی یک مشکل کوچولویی داره.یکی اینکه فقط از شیت 1و2و3و4و5 پرینت میگیره در صورتی که من میخوام از همه ی شیت ها غیر از شیت 1 و 2 بگیره چون تعداد شیت ها متغیره و همیشه این تعداد نیست.

[ali65e]

فايلتون رو اينجا بذارين تا رو فايل درست كنم براتون

خدمت امیر آقاamir.xlsm

[Amir Ghasemiyan]

ممنون جناب pishraw.زحمت کشیده بودی ولی یک مشکل کوچولویی داره.یکی اینکه فقط از شیت 1و2و3و4و5 پرینت میگیره در صورتی که من میخوام از همه ی شیت ها غیر از شیت 1 و 2 بگیره چون تعداد شیت ها متغیره و همیشه این تعداد نیست.

بفرماييد. با اين كد شما شيت هاي 3 به بعد رو انتخاب ميكنيد و ...

For x = 3 To Sheets.Count
    Sheets(x).Select (False)
Next x
Range("A1:E10").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

[ali65e]

بفرماييد. با اين كد شما شيت هاي 3 به بعد رو انتخاب ميكنيد و ...

For x = 3 To Sheets.Count
    Sheets(x).Select (False)
Next x
Range("A1:E10").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

ممنون داداش.خودشههههههههههه