كيف يمكن طباعة فورم على ورقة A4 بدون تغيير حدود الفورم

[زياد عبد الجليل]

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

1-اريد كود  طباعة فورم على ورقة  نوعية A4 بدون تغيير حدود الفورم بشرط ضهور كل محتويات الفورم على الورقة خاصة من اعلى الورقة ومن اسفل  .

ولكم مني فائق عبارات الشكر و الامتنان

تم تعديل أكتوبر 3, 2016 بواسطه زياد عبد الجليل

[طلعت محمد حسن]

السلام عليكم

اخي زياد شاهد المرفق هل تقصد هكذا

 

اقبل تحياتي واحترامي

بيانات موظف.rar

[زياد عبد الجليل]

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

[زياد عبد الجليل]

34 دقائق مضت, طلعت محمد حسن said:

السلام عليكم

اخي زياد شاهد المرفق هل تقصد هكذا

 

اقبل تحياتي واحترامي

بيانات موظف.rar

اخي طلعت انا اود طباعة كل بيانات الفورم على ورقة من نوع A4  بحيث يتم طباعة كل محتويات الفورم على الورقة دون تغيير حدود الفورم ...فمثلا عندما طبعت الفورم باستعمال كود UserForm1.PrintForm

هناك بيانات كثيرة لا يتم طباعتها الا بتغيير WIDTHالى 800 كما ان تغيير العرض يستوجب معه تنزيل بعض المحتويات الى اسفل الفورم وانا اود طباعة كل المحتويات على الطابعة بدون تغيير في حدود الفورم  وبنفس التنسيق الموجود في الفورم اي البيانات الموجودة في اسفل الفورم تطبع في اسفل الورقة لا في المنتصف  ...المرفق التالي يبين المطلوب

طباعة فورم.rar

[طلعت محمد حسن]

السلام عليكم

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

[زياد عبد الجليل]

شكرا استاذ طلعت على تجاوبك مع الموضوع هنا قمنا بوضع HEIGHT=800  قبل كود الطباعة واذا نفذنا هذا الامر لاحظ السطر الاخير لا يطبع في اخر الورقة و انما في وسطها وكذلك اشكال اخر اذا زدنا في قيمة  طول الفورم  هنا الفورم عند طباعتها لا تكون متناسقة مع الورقة بالشكل الاصلي لها وهنا نكون مجبرين باضافة كود لتنزيل بعض محتويات الفورم الى الاسفل اذا طبقنا كود HEIGHT=800

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

Private Sub CommandButton1_Click()
With UserForm1
    .Zoom = 400
End With
UserForm1.PrintForm
With UserForm1
    .Zoom = 100
End With
End Sub

 

تم تعديل أكتوبر 3, 2016 بواسطه زياد عبد الجليل