[السيد الغالي]

الاخ العزيز السلام عليكم ورحمة الله وبركاته
اشكرك اخي العزيز 
اولا انسخ الملف المرفق PageSet.dll    
الى المجلد system32
ثم اذهب الى Start  واكتب  run 
ثم في مربع الحوار اكتب  RegSvr32 PageSet.dll
ثم ok
ستظهر لك رسالة بنجاح عملية العملية
بعدها افتح المشروع واذهب الى Project ثم  References  ثم  Browse ثم حدد المجلد system32 ثم حدد PageSet.dll


ثم open
بعدها ضع علامة الصح امام كلمة PageSet في المربع الحواري 
الى هنا انتهىت عملية ادراج الاداة في مشروعك 
اللآن اذهب الى التقرير وضع في قسم التصريحات العامة  الكود التالي

كود :

Dim Egy As New PageSet.PrinterControl

ثم في حدث Resize ضع الكود التالي للطباعة بعرض الصفحة

كود :

Egy.ChngOrientationLandscape

فيصبح لديك الكود النهائي كلاتي

كود :

Dim Egy As New PageSet.PrinterControl
Private Sub DataReport_Resize()
Egy.ChngOrientationLandscape
End Sub

اما اذا اردت الطباعة حسب اعدادت الطابعة لديك فضع الكود التالي

كود :

Egy.ReSetOrientation

اتمنى ان تعمل لديك هذه الطريقة