[SIZE=4]من افكارأستاذنا الكبير/ ناجي ابراهيم زاده الله من علمه وفضله
من اجاباته علينا فى موضوع (عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه [/SIZE]
)
[SIZE=3][b]ثم فى موضوع (
طباعة الفورم بأكملها على الورقة مهما كانت أبعادها) [/b][/SIZE]
[SIZE=3][b]
توصلت لحل [/b][/SIZE]
[SIZE=3][b][SIZE=3][b][SIZE=3][b] والحمد لله[/b][/SIZE]
هذا كود [/b][/SIZE][/b][/SIZE]
[SIZE=3][b][SIZE=3][b][SIZE=3][b]يقوم بهذه العملية ([/b][/SIZE]
وقد جربته ونفذ المطلوب والحمد لله)
[/b][/SIZE][/b][/SIZE]
[HTML]
Dim MAXWid(9)
Private Sub Form_Activate()
For J = 0 To 3
Rem0,1,2,3" الرقم3 باعتبار أن ال ataGrid1 أربعة أعمدة
Label1(J).AutoSize = True
Label1(J).Font.Size = DataGrid1.Font.Size
Label1(J).Font.Name = DataGrid1.Font.Name
Label1(J).Font.Italic = DataGrid1.Font.Italic
Label1(J).Font.Bold = DataGrid1.Font.Bold
Next J
Rem
Adodc1.Refresh
Nrec = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For I = 1 To Nrec - 1
For J = 0 To 3
TEXTT = DataGrid1.Columns(J).Value
Label1(J).Caption = TEXTT + " "
If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width
Next J
Adodc1.Recordset.MoveNext
Next I
For J = 0 To 3
TEXTT = DataGrid1.Columns(J).Value
Label1(J).Caption = TEXTT + " "
If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width
Next J
For J = 0 To 3
DataGrid1.Columns(J).Width = MAXWid(J) + 100
Next J
End Sub
[/HTML]
[SIZE=3][b][SIZE=3][b]
وأرجو من أستاذنا الكبيرأن يكتبه بأسلوب أسهل من ذلك
أو أن يذكر لنا خاصية من خواص ال[/b][/SIZE][/b][/SIZE]
datagrid [SIZE=3][b][SIZE=3][b][SIZE=3][b]تقوم بهذه العملية [/b][/SIZE][/b][/SIZE][/b][/SIZE]
[SIZE=3][b]
[SIZE=4]ولكم ألف شكر
[/SIZE][/b][/SIZE]