طاهر الوليدي قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 (معدل) الى الاعزاء في المنتدى المتميز الى الاخوة الخبراء والمشرفين والمراقبين والعباقرة هل يوجد برنامج او كود يحدد حجم التقرير طولا وعرضا بسنتمتر بصفة حرة عند فتح التقرير يظهر نموذج فيه حقلين حقل الاول الادخال حجم الطول والحقل الثاني عرض التقرير بمجرد كتابة رقم الطول وورقم العرض يظهر التقرير بنفس الحجم تم تعديل مارس 2, 2018 بواسطه طاهر الوليدي
صالح حمادي قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 السلام عليكم من المعروف أن وحدة القياس في كائنات الأكسس هي Twip و كل 1 سنتيمتر يساوي 566.9291338583 تويب لذلك استعمل الشكل التالي: h*566.9291338583 بحيث h هو الطول بالسنتيمتر 2
طاهر الوليدي قام بنشر مارس 2, 2018 الكاتب قام بنشر مارس 2, 2018 وعليك السلام ورحمة الله وبركاته استاذي العزيز صالح الحمادي الله يبارك في عمرك ورزقك ويزيدك من فضله قصدت نموذج فيه حقلين طول وعرض ادخل رقم في حقل الطول ورقم في حقل العرض وزر يفتح التقرير بالحجم الي وضعته لتقرير على ورقة بنفس المقاسات بسنتمتر
صالح حمادي قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 الآن فهمت قصدك. لاحظ معي جيدا: 1- لا يمكنك تحديد طول و عرض التقرير في الأكسس. 2- يمكنك اختيار حجم الورقة فقط حسب الأحجام المخصصة لذلك A4 و A5 و A3 .... وغيرها 3- بالنسبة للأحجام المخصصة هي متعلقة بنوع الطابعة فهناك طابعات إفتراضية تعطيك إمكانية تحديد حجم التقرير. 4- طريقة تحديد نوع حجم الورقة بالكود هي كالتالي: Me.Printer.PaperSize = acPRPSA5 بحيث acPRPSA5 هي ورقة A5 و acPRPSA4 هي و رقة A4 و هكذا. و يمكنك الإستفادت من هذا الموضوع: 1 1
طاهر الوليدي قام بنشر مارس 3, 2018 الكاتب قام بنشر مارس 3, 2018 لايسعني الى الدعاء لكم الله يفتح لكم ابواب رزلاتغلق ولكم جزيل الشكر والتقدير ولو اني كنت اريدها كما طلبت لكن سيجعل الله لنا في ذلك مخرجا
صالح حمادي قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 5 ساعات مضت, طاهر الوليدي said: ولو اني كنت اريدها كما طلبت لكن سيجعل الله لنا في ذلك مخرجا ما هو نوع الورق أو حجمه الذي تريد الطباعة عليه 1
طاهر الوليدي قام بنشر مارس 4, 2018 الكاتب قام بنشر مارس 4, 2018 (معدل) بارك الله فيك مثل ضروف رسائل سندات قبض سندات صرف كروت اصناف فواتير سند مرتجع متعدد الاحجام والمقاسات حسب نوع النشاط وحتياجه تم تعديل مارس 4, 2018 بواسطه طاهر الوليدي 1
صالح حمادي قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 في هذه الحالة تستطيع تغيير حجم التقرير حسب الطابعة التي لديك 1
طاهر الوليدي قام بنشر مارس 5, 2018 الكاتب قام بنشر مارس 5, 2018 الله يبارك فيك استاذي الفاضل وشكرا لمتابعتك للموضوع وقد حاولت اغلب الطابعات لها تحديد خاص بها وكنت اريد تحديد خاص بالبرنامج ليعطي سلاسه وحرية في تحديدحجم التقارير بنفس حجم المطبوعات الجاهزة فيصعب القيام بطباعة من جديد واحيانا يصعب شراء طابعة جديده او يستصعبوها وبرسلك تطبيق حصلت عليه وضعته الاخت زهره ممكن يكون وصلك قد تستفيد من فكرته التحكم بالتقارير ممتاز.rar
صالح حمادي قام بنشر مارس 5, 2018 قام بنشر مارس 5, 2018 4 ساعات مضت, طاهر الوليدي said: وكنت اريد تحديد خاص بالبرنامج ليعطي سلاسه وحرية في تحديدحجم التقارير بنفس حجم المطبوعات الجاهزة فيصعب القيام بطباعة من جديد واحيانا يصعب شراء طابعة جديده او يستصعبوها يوجد برنامج طابعة افتراضية اسمه ImagePrinter Pro يمكنك من اختيار اي حجم تريد و يعطيك إمكانية طباعة التقرير على شكل صورة حمل البرنامج نسخة تجريبية من هنا http://www.01net.com/telecharger/windows/Utilitaire/imprimantes/fiches/108437.html 1
طاهر الوليدي قام بنشر مارس 6, 2018 الكاتب قام بنشر مارس 6, 2018 (معدل) هذا يدل على انك بدلت مجهود في البحث والتحري عن الموضوع بارك الله فيك استاذي الفاضل والله يعطيك الخير بدون حساب انا حصلت على هذا الكود لكن ماعرفت هل لنفس الغرض 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 بواسطه طاهر الوليدي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.