پرینت

[مینو]

سلام
یوزر فرمی دارم در آن از موتلتی پیج استفاده کرده ام که دارای 10 پیج است
چگونه می توانم دکمه ای در آن تعریف کنم که از پیجی که باز است پرینت بگیرد

[امين اسماعيلي]

RE: پرینت

با درود

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


در هر صورت ابتدا دو دکمه توی یوزر فرمت بزار که مولتی پیج داره
1- اولی بصورت خودکار ار همه مولتی پیج هات (10) تاش پرینت میگیره
2- دومین کلیدمم از هر کدومش که فعال باشه یعنی انتخاب باشه میگیره

[undefined=undefined]
Private Sub CommandButton1_Click()
Dim i
For i = 0 To 9
Me.MultiPage1.Value = i
Me.PrintForm
Next
End Sub


Private Sub CommandButton2_Click()
Me.PrintForm
End Sub


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

در مورد عدد 9 هم بگم که به اشتباه نیوفتی . شماره مولتی پیج ها تو vba از صفر شروع میشه و پس 10 تای شما تا 9 میشه
ولی قول دادم که فایل نمونه تا اونجا که بشه نذارم . فقط یه راهنمایی میکن که به ذهن خودم تازه خطور کرد. اونم اینه که هنگام فشردن کلید ابتدا اندازه مولتی پیج به اندازه فرمت بشه و بعد از پرینت دوباره کوچیک شه. یعنی یه چند خط ابتدا همه کدهات و یه چند خط هم اخرش.



[hr]
اگرم میخوای دکمه ها رو هم تو پرینت نبینی در ابتدا باید visible اونها رو false و در اخر هم دوباره visible اونها رو مساوی true قراز بدی