مطلوب برنامج يحدد حجم التقرير طول وعرض باسنتيمتر

[طاهر الوليدي]

الى الاعزاء في المنتدى المتميز الى الاخوة الخبراء والمشرفين والمراقبين والعباقرة 

هل يوجد برنامج او كود يحدد حجم التقرير طولا وعرضا بسنتمتر بصفة حرة  عند فتح التقرير يظهر نموذج فيه حقلين حقل الاول الادخال حجم الطول والحقل الثاني عرض التقرير بمجرد كتابة رقم الطول وورقم العرض يظهر التقرير بنفس الحجم

 

تم تعديل مارس 2, 2018 بواسطه طاهر الوليدي

[صالح حمادي]

السلام  عليكم

من المعروف أن وحدة القياس في كائنات الأكسس هي Twip

و كل 1 سنتيمتر يساوي 566.9291338583 تويب

لذلك استعمل الشكل التالي:

h*566.9291338583

بحيث h هو الطول بالسنتيمتر

[طاهر الوليدي]

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

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

نموذج فيه حقلين طول وعرض  ادخل رقم في حقل الطول ورقم في حقل العرض وزر يفتح التقرير بالحجم الي وضعته  لتقرير على ورقة بنفس المقاسات بسنتمتر

[طاهر الوليدي]

مرفق نموذج

REPORT.rar

[صالح حمادي]

الآن فهمت قصدك.

لاحظ معي جيدا:

1- لا يمكنك تحديد طول و عرض التقرير في الأكسس.

2- يمكنك اختيار حجم الورقة فقط حسب الأحجام المخصصة لذلك A4 و A5 و A3 .... وغيرها

3- بالنسبة للأحجام المخصصة هي متعلقة بنوع الطابعة فهناك طابعات إفتراضية تعطيك إمكانية تحديد حجم التقرير.

4- طريقة تحديد نوع حجم الورقة بالكود هي كالتالي:

Me.Printer.PaperSize = acPRPSA5

بحيث acPRPSA5 هي ورقة A5

و acPRPSA4 هي و رقة A4

و هكذا.

و يمكنك الإستفادت من هذا الموضوع:

 

[طاهر الوليدي]

لايسعني الى الدعاء لكم الله يفتح لكم ابواب رزلاتغلق ولكم جزيل الشكر والتقدير  ولو اني كنت اريدها كما طلبت لكن سيجعل الله لنا في ذلك مخرجا

[صالح حمادي]

5 ساعات مضت, طاهر الوليدي said:

ولو اني كنت اريدها كما طلبت لكن سيجعل الله لنا في ذلك مخرجا

ما هو نوع الورق أو حجمه الذي تريد الطباعة عليه

[طاهر الوليدي]

بارك الله فيك مثل 

ضروف رسائل

سندات قبض

سندات صرف

كروت اصناف

فواتير

سند مرتجع

متعدد الاحجام والمقاسات حسب نوع النشاط  وحتياجه 

تم تعديل مارس 4, 2018 بواسطه طاهر الوليدي

[صالح حمادي]

في هذه الحالة تستطيع تغيير حجم التقرير حسب الطابعة التي لديك

[طاهر الوليدي]

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

وكنت اريد تحديد خاص بالبرنامج ليعطي سلاسه وحرية في تحديدحجم التقارير بنفس حجم المطبوعات الجاهزة فيصعب القيام بطباعة من جديد 

واحيانا يصعب شراء طابعة جديده  او يستصعبوها 

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

 

التحكم بالتقارير ممتاز.rar

[صالح حمادي]

4 ساعات مضت, طاهر الوليدي said:

وكنت اريد تحديد خاص بالبرنامج ليعطي سلاسه وحرية في تحديدحجم التقارير بنفس حجم المطبوعات الجاهزة فيصعب القيام بطباعة من جديد 

واحيانا يصعب شراء طابعة جديده  او يستصعبوها 

يوجد  برنامج طابعة افتراضية اسمه  ImagePrinter Pro يمكنك من اختيار اي حجم تريد و يعطيك إمكانية طباعة التقرير على شكل صورة

حمل البرنامج نسخة تجريبية من هنا

http://www.01net.com/telecharger/windows/Utilitaire/imprimantes/fiches/108437.html

[طاهر الوليدي]

هذا يدل على انك بدلت مجهود في البحث والتحري عن الموضوع بارك الله فيك استاذي الفاضل والله يعطيك الخير بدون حساب

انا حصلت على هذا الكود لكن ماعرفت هل لنفس الغرض

Imports System.Drawing.Printing

Public Class Form1

Dim WithEvents PD As New PrintDocument

Dim PPD As New PrintPreviewDialog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PPD.Document = PD

PD.DefaultPageSettings.PaperSize = New PaperSize("Custom", 800, 600)

PPD.ShowDialog()

End Sub

Private Sub PD_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PD.PrintPage

MessageBox.Show(e.PageSettings.PrintableArea.ToString)

End Sub

End Class

تم تعديل مارس 6, 2018 بواسطه طاهر الوليدي