هوامش التقرير

[User user]

كيفية تحديد هوامش التقرير بسنتميتر Cm

TOP

Bottom

Right

Left

تم تعديل أكتوبر 26, 2019 بواسطه eslamali2

[jjafferr]

وعليكم السلام 🙂

 

الاكسس يأخذ هذه المعلومة من نظام الوندوز :

.

.

Metric معناه قياس السنتيمتر.

وبعد حفظ هذه الاعدادات ، الاكسس سيظهر لك القياس بالسنتيمتر 🙂

 

جعفر

[User user]

من فضل حضرتك ممكن الكود اللى هيتكتب 

المستخدم يحدد كما يشاء دون الدخول مره اخرى للتصميم 

 

تم تعديل أكتوبر 26, 2019 بواسطه eslamali2

[User user]

@jjafferr

[jjafferr]

اخي الفاضل ، رجاء توضيح المطلوب ، وبالتفصيل ، لأني ما فهمت قصدك !!

 

 

[essam rabea]

أستاذنا jjafferr

أعتقد أن أ.eslamali2 يسأل عن كود لعمل هوامش التقرير بالسنتيمتر وليس بالبوصه

وان كان كذلك فبعد إذنكم فليجرب الكود التالى

Private Sub Report_Open(Cancel As Integer)
Const TW As Integer = 567
  Dim prt As Printer
  Dim rpt As Report
  Set rpt = Reports("اسم التقرير")
  Set prt = rpt.Printer
  With prt
    .LeftMargin = 1 * TW
    .RightMargin = 1 * TW
    .TopMargin = 1 * TW
    .BottomMargin = 1 * TW
  End With
  Set rpt = Nothing
End Sub

 

[jjafferr]

شكرا جزيلا اخي عصام 🙂

 

اللي خلاني اضيع في السؤال هي هذه الجملة:

14 ساعات مضت, eslamali2 said:

المستخدم يحدد كما يشاء دون الدخول مره اخرى للتصميم 

لهذا السبب كنت محتاج توضيح اكثر 🙂

 

جعفر

[essam rabea]

14 دقائق مضت, jjafferr said:

لهذا السبب كنت محتاج توضيح اكثر

ممكن أنا أيضا أكون فاهم غلط 😉

[User user]

شكرا لحضرتك ا.@essam rabea هذا المطلوب 

محتاج اعمل نموذج مستخدم البرنامج هو اللى يكتب المقاس اللى هو محتاجه