[abo-asd]

السلام عليكم ورحمة الله وبركاته

انا عندي مشروع كذا :
الاسم :
العمر :
السنة الدراسية :
ملاحظات :

" وابيها تتصدر للوورد "

بس اذا كان لايوجد ملاحظات ابيها تتصدر للوورد وخانة الملاحظات فارغة .

وابي تكون في الصفحة 3 او 4 اشخاص على حسب ماتاخذ الصفحة



وشكراً

[mamas1]

ممكن شرح
"وابي تكون في الصفحة 3 او 4 اشخاص على حسب ماتاخذ الصفحة" ؟؟
إقرأ هذه المقالة
http://social.msdn.microsoft.com/Forums/...e-one-line

[essabar]

السلام عليكم
إليك متال على إرسال المعلومات إل EXCEL

Private Sub Command11_Click()
Dim DExcel As Object
Dim ColHeader As Variant
Dim intRow As Integer
Dim intcol As Integer

Set DExcel = CreateObject("Excel.Application")
ColHeader = Array("A", "B", "C", "D", "E", "F", "G", "H")
DExcel.DisplayAlerts = False
DExcel.Workbooks.Add
DExcel.Sheets("Feuil1").Select
DExcel.Sheets("Feuil1").Name = "LISTE DES PARENTS"

With msflexgrid
For intRow = 0 To .Rows - 1
For intcol = 0 To .Cols - 1
DExcel.Range(ColHeader(intcol) & (intRow + 1)).BorderAround Color:=vbBlack
DExcel.Range(ColHeader(intcol) & (intRow + 1)) = .TextMatrix(intRow, intcol)
Next intcol
Next intRow
End With
DExcel.ActiveWorkbook.Close True, "C:\MonFichier.xls"
DExcel.Quit
End Sub