کدی برای پرینت پریویو گرفتن از یک شیت خاص

[javadsar]

با سلام خدمت دوستان و اساتید عزیز . 2سوال داشتم اول: آیا میشه کدی نوشت که از یک شیت خاص پرینت پریویو بگیره؟ دوم :آیا میشه کدی نوشت که فایل اکسل رو save کنه ؟ ممنون میشوم که بنده را راهنمایی کنید.

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

[Amir Ghasemiyan]

با سلام خدمت دوستان و اساتید عزیز . 2سوال داشتم اول: آیا میشه کدی نوشت که از یک شیت خاص پرینت پریویو بگیره؟ دوم :آیا میشه کدی نوشت که فایل اکسل رو save کنه ؟ ممنون میشوم که بنده را راهنمایی کنید.

سلام دوست عزيز

بفرماييد خدمت شما

ActiveSheet.PrintPreview
ActiveWorkbook.Save

[javadsar]

ممنون از لطف شما

[javadsar]

چطور میشه 1 شیت خاص رو پرینت پریویو گرفت بصورتی که فرم اصلی بسته شود....این کد درست است

Private Sub CommandButton8_Click()

---

---

Application.Windows.Application.Visible = False

ActiveWorkbook.Sheets("Sheet1").PrintPreview

---

---

End Sub

[Amir Ghasemiyan]

چطور میشه 1 شیت خاص رو پرینت پریویو گرفت بصورتی که فرم اصلی بسته شود....این کد درست است

Private Sub CommandButton8_Click()

---

---

Application.Windows.Application.Visible = False

ActiveWorkbook.Sheets("Sheet1").PrintPreview

---

---

End Sub

بله اين كد شما درسته. فقط بايد جاي فرمان ها رو عوض كنيد. اول پريويو بگيرين بعد ببنديد.

درضمن اگه لطف كنيد كدهاتون رو داخل تگ كد كه با # مشخص هست قرار بدين ممنون ميشم

Private Sub CommandButton8_Click()

Application.Windows.Application.Visible = False

ActiveWorkbook.Sheets("Sheet1").PrintPreview

End Sub

[javadsar]

پرینت پریویو میگیره ولی فرمی که در ویژوال بیسک درست کردیم مینی مایز نمیشه و روی پرینت پریویوباقی میمانه

[Amir Ghasemiyan]

پرینت پریویو میگیره ولی فرمی که در ویژوال بیسک درست کردیم مینی مایز نمیشه و روی پرینت پریویوباقی میمانه

در قسمت properties فرم ، گزينه print object رو false كنيد

[javadsar]

با عرض پوزش..........هر کار کردم نشد......لطفا فایل ضمیمه را ببینید و بفرمایید کجای کار اشکال دارم

[امين اسماعيلي]

با درود
سوال شما یکم گنگه خوب
1- با userform داری کار میکنی یا نه.؟
اگر userform رو میخوای hide کنی که کد زیر حله :

UserForm1.Hide
ActiveWorkbook.Sheets("sheet1").PrintPreview
UserForm1.Show

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

UserForm1.Hide
Sheet1.PrintPreview
UserForm1.Show

سوالا اینکه چرا یوزر فرم در بعضی مواقع رو صفحه باقی میمونه:
نمیدونم تا حالا با این مشکل برخوردین یا نه توی یه یوزر فرم دکمه ای داریم که با اون یوزر فرم دیگه ای رو باز میکنیم . و یوزر فرم اولمون را hide میکنیم. اما با کمال تعجب هنوز هستش و hide نمیشه
این مشکل را اینجور برطرف مکیم که در پنجره properties یوزرفرم هامون گزینه ای به نام showmodal هستش که این گزینه رو از true به false تغییر بدیم این مشکل برطرف میشه.

در آخر برای اینکه یه شیت خاص print preview بشه خوب باید یه جا براش مشخص کنیم چه شیتی . textbox ای ، سلی. inputbox ای. خاصیت پرینت پریویو روش دومی هم اینه که کاری به نام شیت نداره و نام کد نویسی شیت رو درنظر میگیره.

[javadsar]

جناب اسماعیلی : کدهای که شما لطف کردین ...دادم ولی اکسل هنگ میکنه میشه فایل رو بررسی کنید...ممنون