منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
رسالة عند الخروج من الاكتف ربورت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : رسالة عند الخروج من الاكتف ربورت (/showthread.php?tid=24194)

رسالة عند الخروج من الاكتف ربورت - حافظ حافظ - 15-03-18

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


RE: رسالة عند الخروج من الاكتف ربورت - حافظ حافظ - 16-03-18

تسلم استاذ امير
كود :
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

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

RE: رسالة عند الخروج من الاكتف ربورت - عمور2016 - 16-03-18

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

RE: رسالة عند الخروج من الاكتف ربورت - حافظ حافظ - 16-03-18

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