[حل شده] حذف شرایط conditional formatting هنگام پرینت

[majidosmani]

سلام خدمت دوستان من یک فایل دارم که سل ها در آن با استفاده از conditional formatting رنگی شده است حالا به نظر شما چکار کنم که فقط هنگام پرینت این شرایط conditional formatting حذف بشن خودکار

[M_ExceL]

سلام خدمت دوستان من یک فایل دارم که سل ها در آن با استفاده از conditional formatting رنگی شده است حالا به نظر شما چکار کنم که فقط هنگام پرینت این شرایط conditional formatting حذف بشن خودکار

سلام،
در فایل پیوست خانه های بزرگتر و مساوی 50 در جدول رنگی می شوند.
بنده کامبوباکسی رو هم اضافه کردم اکنون بوسیله تابع and در کندیشنال فرمتینگ میشه اون رو فعال یا غیر فعال کرد.

[majidosmani]

سلام،
در فایل پیوست خانه های بزرگتر و مساوی 50 در جدول رنگی می شوند.
بنده کامبوباکسی رو هم اضافه کردم اکنون بوسیله تابع and در کندیشنال فرمتینگ میشه اون رو فعال یا غیر فعال کرد.

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

- - - Updated - - -

ارسال فایایلم

[majidosmani]

سلام کسی برای این مورد نظری ندارد؟

[majidosmani]

سلام کسی از دوستان نظری نداره؟؟؟

[majidosmani]

سلام خدمت دوستان الان من دکمه print اضافه کردم فقط چند تا مشکل دارد که امیدوارم با راهنمایی دوستان حل شود
1- موقع پرینت غلاوه بر جدول ایکون دکمه ها هم پرینت می شود
2- هر سری یک دکمه جدید روی دکمه های قبلی ایجاد میشه

[iranweld]

با سلام

این دو خط را از ماکروی پرینت حذف کنید

[majidosmani]

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

[majidosmani]

با سلام الان اندازه و فونت هم درست شد فقط می خواهم اون اخطار اخر نمایش داده نشه و یک چیز دیگه توی کد نوشه شده باید برای دلیت حتما نام back weld (2) را وارد کنم چون گاهی من این دکمه را یرای جدول های دیگه با اسم های مختلف استفاده میکنم نمیشه به جای back weld (2 چیز دیگه نوشت که خودش خودکار بفهمه
بازبم خیلی ممنون

[majidosmani]

سلام خدمت دوساتن من برای اینکه پیغام اخر حذف را نشان نده از یک کد زیر به معنای زدن دکمه اینتر استفاده کردم ولی کار نمیکنه ایا این کد اشتباه است؟

Sub print2()   Sheets("back weld").Select
    
    Sheets("back weld").Copy After:=Sheets(2)
    Sheets("back weld (2)").Select
    Cells.Select
    Cells.FormatConditions.Delete
    ActiveSheet.Shapes.Range(Array("Object 1")).Select
    Selection.Delete
  Selection.PrintOut Copies:=1, Collate:=True
   Sheets("back weld (2)").Select
   ActiveWindow.SelectedSheets.Delete
   'Application.OnKey "~"
   Application.OnKey "{ENTER}"


End Sub

[majidosmani]

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