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

**Amir Ghasemiyan** · 2014/01/09, 14:45

نوشته اصلی توسط ali65e

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

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

**ali65e** · 2014/01/09, 15:33

نوشته اصلی توسط amir ghasemiyan

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

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

**Amir Ghasemiyan** · 2014/01/09, 15:42

نوشته اصلی توسط ali65e

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

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

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

**ali65e** · 2014/01/09, 16:02

نوشته اصلی توسط amir ghasemiyan

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

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

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

**Amir Ghasemiyan** · 2014/01/09, 16:58

نوشته اصلی توسط ali65e

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

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

**pishraw** · 2014/01/09, 18:04

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

فایل های پیوست شده

pishraw.xlsm (29.1 کیلو بایت, مشاهدات 29)

**ali65e** · 2014/01/09, 20:08

نوشته اصلی توسط pishraw

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

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

**ali65e** · 2014/01/09, 20:21

نوشته اصلی توسط amir ghasemiyan

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

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

**Amir Ghasemiyan** · 2014/01/09, 20:22

نوشته اصلی توسط ali65e

ممنون جناب 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** · 2014/01/09, 21:00

نوشته اصلی توسط amir ghasemiyan

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

کد:

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

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