پرینت در ماکرو نویسی

[aliooali]

سلام دوستان

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

راستی میخواستم که زمانی که رو فایل کلیک میشه فرم باز بشه و توسط button که برای خروج هستش رمز رو بگیره و فایل اصلی اکسل رو نمایش بده

یک مشکل دیگه هم اینه که وقتی برنامه باز میشه به صورت خودکار و هوشمند ( بسته به رزلوشن ) فئل اسکرین بشه

ممنون میشم کمکم کنید

با تشکر

[Amir Ghasemiyan]

سلام دوست عزیز. سوال اولتون رو متوجه نشدم
برای سوال دوم شما این کد رو داخل workbook بذارین:


Private Sub Workbook_Open()
UserForm1.Show
Application.Visible = False
End Sub


و این کد رو هم داخل فرمتون اصلاح کنید:


Private Sub CommandButton7_Click() 'Close Button
Application.Visible = True
Unload Me
End Sub


برای سوال سوم هم کدهای زیر رو به انتهای کدهای Private Sub UserForm_Initialize اضافه کنید:


With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height

End With

[aliooali]

کد برای وارد کردن رمز برای خارج شدن هم اگر امکانش هست راهنمایی کنید

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


سوال ذوم : میشه برای نمایش گزارش که از لیست ویو استفاده شده از یه چیز بهتر استفاده کرد که به این شکل ساده نمایش نده





با تشکر

[Amir Ghasemiyan]

این تکمیل جواب قبل



Private Sub CommandButton7_Click() 'Close Button
pass = InputBox("Please enter password")
If pass = "12345" Then
Application.Visible = True
Unload Me
Else
MsgBox "password not matched"
End If
End Sub




خوشکل یعنی چطوری؟ مثلا بک گراند داشته باشه یا رنگش متفاوت باشه؟

[aliooali]

دستت درد نکنه بابت همه راهنمایی ها

میخوام که بالاش که یک جدول خالی هستش آیتم های نوشته شده باشه
مثلاً
نام و نام خانوادگی - مبلغ و ...

از نظر شکل مثل یک جدول داخل ورد هستش که دو رنگی هستش ( خاکستری و سفید )

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



با تشکر