20-12-14, 10:03 PM
السلام عليكم
هذا كود زر الطباعة :
هذا كود زر الطباعة :
كود :
Private Sub Command1_Click()
Dim I As Integer
If Val(Trim$(Text9.Text)) > 0 Then
For I = 1 To Val(Trim$(Text9.Text))
Form2.PrintForm
DoEvents
Next I
End If
End Sub