عدم نمایش دستور نمایش چاپ
با سلام خدمت دوستان
من با کد دستوری زیر اپلیکیشن اکسل رو هیدن کردم و یوزرفرم رو فعال کردم :
Private Sub Workbook_Open()
Application.ActiveWorkbook.Application.Visible = False
UserForm1.Show
End Sub
و همچنین در قسمت QueryClose کد زیر رو قرار دادم :
activeworkbook.close
مشکل من زمانی ایجاد شد که من یه باتم ساختم و کد دستوری زیر رو قرار دادم که نمایش چاپ شیت مورد نظرم رو بیاره :
Menu.Hide
Sheet14.PrintPreview
Menu.Show
لطفا دوستان راهنمایی بفرمایید
با تشکر
من با کد دستوری زیر اپلیکیشن اکسل رو هیدن کردم و یوزرفرم رو فعال کردم :
Private Sub Workbook_Open()
Application.ActiveWorkbook.Application.Visible = False
UserForm1.Show
End Sub
و همچنین در قسمت QueryClose کد زیر رو قرار دادم :
activeworkbook.close
مشکل من زمانی ایجاد شد که من یه باتم ساختم و کد دستوری زیر رو قرار دادم که نمایش چاپ شیت مورد نظرم رو بیاره :
Menu.Hide
Sheet14.PrintPreview
Menu.Show
لطفا دوستان راهنمایی بفرمایید
با تشکر