الارتفاع الرأسي للتقرير يكون مطابق للتصميم

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

الحمدلله لقد تمكنت من وضع تقرير الارتفاع الراسي حسب كول الحقل

وهو أسهل من السابق حيث يكون تحديد الخط الرأسي حسب الضلع الأيسر للحقل وبهذا يسدل الستار على مشاكل الارتفاع الرأسي حتى الان إن شاء الله

	Dim x As Integer
	x = Me!id.Height
	x = IIf(x < Me!Name.Height, Me!Name.Height, x)
	x = IIf(x < Me!Number.Height, Me!Number.Height, x)
	Me.Line (Me!Job.Left, 0)-(Me!Job.Left + 2, x), 0, B
	Me.Line (Me!Number.Left, 0)-(Me!Number.Left + 2, x), 0, B
	Me.Line (Me!Name.Left, 0)-(Me!Name.Left + 2, x), 0, B
	Me.Line (Me!id.Left, 0)-(Me!id.Left + 2, x), 0, B
	Me.Line (Me!id.Left + Me!id.Width, 0)-(Me!id.Left + Me!id.Width + 2, x), 0, B
	Me.Line (Me!Job.Left, x)-(Me!id.Left + Me!id.Width, x + 2), 0, B
	'---------------------- السابق --------------------------------
	'Me.Line (210, 0)-(212, x), 0, B
	'Me.Line (2700, 0)-(2702, x), 0, B
	'Me.Line (4570, 0)-(4572, x), 0, B
	'Me.Line (7430, 0)-(7432, x), 0, B
	'Me.Line (9000, 0)-(9002, x), 0, B
	'Me.Line (210, x)-(8990, x + 2), 0, B
	'------------------------------------------------------------------------

_________________________________.rar