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