چاپ گزارشات

[benyamintedek]

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

Private Sub Command6_Click()
Dim a(4, 1) As String
Dim b(4, 2) As Single
Static i As Integer
If i < 4 Then
a(i, 0) = Text1.Text
a(i, 1) = Text2.Text
b(i, 0) = Val(Text3.Text)
b(i, 1) = Val(Text4.Text)
b(i, 2) = Val(Text5.Text)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
i = i + 1
Else
MsgBox "finish"
End If
End Sub