چاپ گزارشات ویژوال بیسیک از طریق کریستال ریپورت بدون نمایش پیغام و بصورت مستقیم

با سلام خدمت دوستان گلم
ببخشید من بعد از چند سال عضو بودن در این سایت اولین باره که مطلب میزارم
لطفا کمکم کنید من میخوام در زمان چاپ بدون اینکه پیغام نمایش داده بشه گزارشم رو چاپ کنم:گریه:قول میدم بچه خوبی باشم و مطلب بزارم
این قضیه حیاتیه برای نرم افزار فروشگاهی که خودم نوشتم میخوام

با شئ Printer کار کن

سلام
منظورتون از بدون پيغام چيه ؟ در حالت عادي پيغامي نمايش داده نميشه.
با چه ابزاري گزارشگيري مي‌كنيد ، پيغامي كه مي‌بينيد چيه ؟

اگه با دستور printform کارکنید پیغامی داده نمیشه و فقط میره به حالت printing و اگه از دیتاریپورت یا کریستال و یا امثال اینها استفاده کنید ریپورت و انتخاب پرینتر نمایش داده میشه حالا لطفا بگین کدوم مد نظر شماست؟

سلام
اگه با کریستال ریپورت گزارشگیری می کنی می تونی اول فرم کریستال ریپورت خودت رو بازسازی کنی و بعد بدون نمایش دادن اون از دستور DataReport1.PrintReport استفاده کنی مثال :

Dim SqlTxt As String

SqlTxt = "SELECT * FROM anbar order by anbar_sharh"

Set Adoview = New ADODB.Recordset

Adoview.Open SqlTxt, Cnn, adOpenStatic, adLockPessimistic

Set DataReport1.DataSource = Adoview

DataReport1.PrintReport

منم همین مشکل و دارم . گزارشم با کریستال 9 طراحی شده وچون نمیتونم تغییرش بدم به ورژن بالاتر نمیدونم به چه شکلی میبایست این کارو انجام بدم .

سلام
اين مثال را مطالعه نماييد

باسلام و درود
آقای vbhamed لطفا فایل crviewer9.dll رو هم ضمیمه کنید.
باتشکر پیشاپیش

سلام
بايد كريستال ريپورت رو به طور كامل نصب كنيد، ورژن 9

ممنون جناب vbhamed . مشکلم حل شد . فقط برای تعداد نسخه چاپ ناچاراً از حلقه استفاده کردم چون نیاز به 4 نسخه چاپ بود .

سلام
نياز به حلقه نيست، همون متد PrintOutEx يك پارامتر NumberOfCopy داره

سلام
متشکرم از راهنماییتون ، در مورد این تاپیک نمیتونین کمکم کنین ؟

https://barnamenevis.org/showthread.p...88%D8%B1%D8%AA