مشكلتي المزمنة مع وضع التقرير فيDataReport
لا تتحول الطباعة الا اذا قمت بتغيير وضع الطباعة من خصائص الطابعة من مجلد الطابعات
واما افقي وبس ولا عمودي وبس ما فيش حاجة اسمها النوعين
مشكلتي مع التقرير العمودي والافقي
حاولت كل الطرق
جربت كود العماني لوضعية التقرير في الحالتين
جربت كود السيرفس باك 6
DataReport5.Orientation = rptOrientLandscape DataReport5.Orientation = rptOrientDefault DataReport5.Orientation = rptOrientPortrait
جربت كلاس العماني
Option Explicit Private PageDirection As Integer Public Sub ChngOrientationLandscape() PageDirection = 2 'تحويل الطباعة الى الأفقي Call SetOrientation(DMDUP_SIMPLEX, PageDirection) End Sub Public Sub ReSetOrientation() 'التغيير بين النوعين If PageDirection = 1 Then PageDirection = 2 ElseIf PageDirection = 2 Then PageDirection = 1 End If Call SetOrientation(DMDUP_SIMPLEX, PageDirection) End Sub Public Sub ChngOrientationPortrait() PageDirection = 1 'إعادة وضع الطابعة الى العمودي Call SetOrientation(DMDUP_SIMPLEX, PageDirection) End Sub
