[حافظ حافظ]

السلام عليكم.يا اخوة ما معنى هذي الرسالة
الاكتيف يشتغل عادي و طباعة عادي بس لما مثلا اخرج من الاكتف ربورت من ال X تطلعلي دايما هذي الرسالة
شو معناها الله يرضى عليكم

[حافظ حافظ]

تسلم استاذ امير

كود :

Private Sub Command1_Click()
If RS.State = adStateOpen Then RS.Close
XDEBUT = Val(Text1)
XEND = Val(Text2)
RS.Open "Select * From INVOICE where  [ID] BETWEEN " & XDEBUT & " and " & XEND & " ORDER BY [ID]", DB, adOpenStatic, adLockPessimistic
ActiveReport1.DataControl1.Recordset = RS.Clone
ActiveReport1.Show 1
ActiveReport1.PrintReport False
Unload ActiveReport1
End Sub

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

كود :

ActiveReport1.PrintReport False

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

[عمور2016]

Private Sub Command1_Click()
If RS.State = adStateOpen Then RS.Close
XDEBUT = Val(Text1)
XEND = Val(Text2)
RS.Open "Select * From INVOICE where  [ID] BETWEEN " & XDEBUT & " and " & XEND & " ORDER BY [ID]", DB, adOpenStatic, adLockPessimistic
ActiveReport1.DataControl1.Recordset = RS.Clone

ActiveReport1.PrintReport False
End Sub

[حافظ حافظ]

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