کدی برای پرینت پریویو گرفتن از یک شیت خاص
با سلام خدمت دوستان و اساتید عزیز . 2سوال داشتم اول: آیا میشه کدی نوشت که از یک شیت خاص پرینت پریویو بگیره؟ دوم :آیا میشه کدی نوشت که فایل اکسل رو save کنه ؟ ممنون میشوم که بنده را راهنمایی کنید.
-
(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ )) -
سلام دوست عزيز
بفرماييد خدمت شما
کد:ActiveSheet.PrintPreview ActiveWorkbook.Save
-
ممنون از لطف شما(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ ))کامنت
-
چطور میشه 1 شیت خاص رو پرینت پریویو گرفت بصورتی که فرم اصلی بسته شود....این کد درست است
Private Sub CommandButton8_Click()Application.Windows.Application.Visible = False
ActiveWorkbook.Sheets("Sheet1").PrintPreview
End Sub
Last edited by javadsar; 2013/11/29, 10:18.(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ ))کامنت
-
بله اين كد شما درسته. فقط بايد جاي فرمان ها رو عوض كنيد. اول پريويو بگيرين بعد ببنديد.
درضمن اگه لطف كنيد كدهاتون رو داخل تگ كد كه با # مشخص هست قرار بدين ممنون ميشم
کد:Private Sub CommandButton8_Click() Application.Windows.Application.Visible = False ActiveWorkbook.Sheets("Sheet1").PrintPreview End Subکامنت
-
پرینت پریویو میگیره ولی فرمی که در ویژوال بیسک درست کردیم مینی مایز نمیشه و روی پرینت پریویوباقی میمانه(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ ))کامنت
-
کامنت
-
با عرض پوزش..........هر کار کردم نشد......لطفا فایل ضمیمه را ببینید و بفرمایید کجای کار اشکال دارم(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ ))کامنت
-
با درود
سوال شما یکم گنگه خوب
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 ای. خاصیت پرینت پریویو روش دومی هم اینه که کاری به نام شیت نداره و نام کد نویسی شیت رو درنظر میگیره.در پناه خداوندگار ایران زمین باشید و پیروزکامنت
-
جناب اسماعیلی : کدهای که شما لطف کردین ...دادم ولی اکسل هنگ میکنه میشه فایل رو بررسی کنید...ممنون(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ ))کامنت
-
با درود
ببین حل شد. دوست عزیز من شما که اکسل اصلی رو مخفی کردی نباید واسه پرینت گرفت یه بار ظاهرش کنی و بعد از پرینت پریوی دوباره مخفی اش کنی؟ در کل فک کنم مشکلت حل شد . اون توضیح بالا در مورد موندن userform رو هم تصحیح کردمدر پناه خداوندگار ایران زمین باشید و پیروزکامنت
-
با درود
یه کد دیگه هم مینویسم که قبلش یه inputbox میاد و شما فقط 1 یا 2 یا ...... وارد میکنین و بر طبق ان عدد شیت مربوطه پریویو میشه . البته من برای همون یوزر فرم شما نوشتم. خوبی این کد همون مورد است که اگر نام شیت تغییر کنه نیازی به تغییر کد نیست
اگر هم که workbook شما هم hide هستش مثل فایلی که تصحیح شد کد ها رو براش قرار بدینکد:On Error Resume Next Dim x As Integer x = InputBox("enter just the number of sheet like 1 or 2 or........") Worksheets(x).PrintPreviewLast edited by امين اسماعيلي; 2013/11/29, 15:41.در پناه خداوندگار ایران زمین باشید و پیروزکامنت
-
خیلی ممنون.......(( همیشه یادتون باشه که خدا منبع خوبی هاست . اگر حالمون خوب نیست شاید از خدا دور شدیم !؟!؟!؟ ))کامنت
کامنت