منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم.يا اخوة ما معنى هذي الرسالة
الاكتيف يشتغل عادي و طباعة عادي بس لما مثلا اخرج من الاكتف ربورت من ال 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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حافظ حافظ

حافظ حافظ

عمور2016

حافظ حافظ