دستور اینتر

[iranweld]

با سلام

از کد ذیل استفاده کنید

در ابتدای ماکرو از
Application.DisplayAlerts = False
در انتهای ماکرو
Application.DisplayAlerts =True

Sub print2()

Application.DisplayAlerts = False

    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 "{ENTER}"
   
   Application.DisplayAlerts = True

End Sub 

[majidosmani]

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

[ali.b]

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

سلام سوال شما خیلی کلی هست
این دستور چی هست؟ لازمه کد رو ببنیم تا بدونیم درمورد چه چیزی باید کمک کنیم. لطفا کد رو قرار بدین
تشکر

[majidosmani]

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