اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تمدد مربع نص في تقرير جدولي .


الردود الموصى بها

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

 لدي مشكلة بسيطة في اعداد تقرير جدولي

حيث لدي في جدول اربعة حقول

OrderID (Long) , OrderDate (Date/Time), CustmName (Text) , CustDetails (Memo)

طبعا المطلوب هو جعل كل الحقول تتمدد بنفس ارتفاع الحقل CustDetails

وللتوضيح اكثر ظهر لدي شكل التقرير عندما صممته بالشكل هذا :

Photo2.jpg.7dda9bd09ea8d63d7d1e32f52b72cf08.jpg

 

 

والمطلوب هو ان يكون بهذا الشكل :

Photo1.jpg.c189c3e355e807d504869cf7672b9bd5.jpg

 

هل هذا ممكنا وكيف ؟

رابط هذا التعليق
شارك

2 ساعات مضت, كوماندير said:

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

 لدي مشكلة بسيطة في اعداد تقرير جدولي

حيث لدي في جدول اربعة حقول

OrderID (Long) , OrderDate (Date/Time), CustmName (Text) , CustDetails (Memo)

طبعا المطلوب هو جعل كل الحقول تتمدد بنفس ارتفاع الحقل CustDetails

وللتوضيح اكثر ظهر لدي شكل التقرير عندما صممته بالشكل هذا :

Photo2.jpg.7dda9bd09ea8d63d7d1e32f52b72cf08.jpg

 

 

والمطلوب هو ان يكون بهذا الشكل :

Photo1.jpg.c189c3e355e807d504869cf7672b9bd5.jpg

 

هل هذا ممكنا وكيف ؟

ما عليك الا خطوات التالية

1 : حدد جميع مربعات النصية

2: اختر قائمة Arrange

3: اختر Tabular

 

 Capture.JPG.8364f20fd60dd7c5cf8a928223072277.JPG

 وشوف النتيجه‌

تحياتي

رابط هذا التعليق
شارك

اخي بارك الله فيك اشكر تفاعلك   ولكن

لم تغب عني الفكرة ولكن اردت توسيط قيم حقول مربعات النص كما بالصورة الثانية

ايضا عندما نفذت طريقتك ظهرت لي فراغات بين مربعات النص وانا لا اريدها

اريدها بالضبط كما بالصورة الثانية بالضبط  ....

 

باختصار شديد اريد ان يكون ارتفاع جميع مربعات النص يساوي ارتفاع CustDetails (Memo)

وتوسيط قيم مربعات النص كما بالصورة الثانية .

رابط هذا التعليق
شارك

وجدت هذا الكود

لكن لا يعمل مع الخاصية can grew = yes

يعتمد على ارتفاع نربع النص او التسمية

بمعنى ان اذا تم عمل ارتفاع مربع النص على ان يظهر فيه سطرين سوف يكون المحاذاة على هذا الحد حتى اذا كانت الخاصية can grew = yes

Option Explicit

'' Copyright Lebans Holdings 1999 Ltd.
'' www.lebans.com
'' Please note this method will always be off
'' by one pixel due to rounding.
'' Vertical Justification is performed in the same manner
'' as Excel. We are trying to center the Top of a capital
'' character and the bottom(baseline) of the capital character.
'' If you look in the Reports section on my web site you will
'' find code that uses the ascending and descending char values
'' to calculate a more accurate vertical justification.


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

' You have to call the function every time
' during the Report's Detail Format event.

VerticalAlignCenter Me.MyNotes
VerticalAlignCenter Me.id
VerticalAlignCenter Me.MyName1
VerticalAlignCenter Me.MyName2
VerticalAlignCenter Me.MyName3
VerticalAlignCenter Me.MyName4

End Sub
Public Sub VerticalAlignCenter(ByRef ctl As Control)   '(ctl As Control) 'access 32bit
On Error GoTo ErrorCode
    Dim MinimumMargin As Integer
    Dim BorderWidth As Integer
    Dim TwipsPerPoint
TwipsPerPoint = 20
    If Not ((TypeOf ctl Is TextBox) Or (TypeOf ctl Is Label)) Then Exit Sub

   'Figure out how many lines it is

   Dim LenOfText, WidOfBox, NumberOfLines, HtOfText
   If TypeOf ctl Is TextBox Then
    LenOfText = ctl.Text
    Else:
    LenOfText = ctl.Caption
    End If

    'how wide is this puppy?

    WidOfBox = ctl.Width
    LenOfText = (Len(LenOfText) * TwipsPerPoint * ctl.FontSize) / 2
    NumberOfLines = Int(LenOfText / WidOfBox) + 1
    HtOfText = NumberOfLines * TwipsPerPoint * ctl.FontSize
    MinimumMargin = 1 * TwipsPerPoint
    BorderWidth = (ctl.BorderWidth * TwipsPerPoint) / 2
    
    ctl.TopMargin = ((ctl.Height - HtOfText) / 2) - MinimumMargin - BorderWidth
   

ErrorCode:
    Exit Sub
End Sub

نرجو تعديل الكود لكي يعمل بشكل صحيح مع كل الحالات

 

VerticalJustify2.rar

تم تعديل بواسطه علي المصري
اضافة مرفق
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information