چاپ مسقيم گزارش كريستال ريپورت

[user2535]

باسلام

با چه كدي مي توان گزارش كريستال ريپورت بدون آن كه در پيش نمايش مشاهده شود به طور مستقيم بر روي چاپگر فرستاد
ممنون

[DoDoklak]

Dim ret As New CRP_Factor_Buy
ret.SetDataSource(Dataret)
ret.PrintToPrinter(1, False, 1, Integer.MaxValue)



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

[amin_iman82]

DoDoklak (http://barnamenevis.org/forum/member.php?u=43259) عزیز دکمه تشکر رو زدم ولی باز میگم ممنون.


User2535 عزیز.

این کد کامل تره و میتونید فاصله متن چاپ شده از لبه های برگه و همچنین پرینتر مورد نظرتون رو تعیین کنید.



Dim report As New ReportDocument report.Load("C:\somewhere\myreport.rpt")


Dim margins As PageMargins = Report.PrintOptions.PageMargins
margins.bottomMargin = 200
margins.leftMargin = 200
margins.rightMargin = 50
margins.topMargin = 100

Report.PrintOptions.ApplyPageMargins(margins)
report.PrintOptions.PrinterName = "HP Laserjet 5100"


report.PrintToPrinter(1, False, 0, 0)

[DoDoklak]

لطفا زدن دکمه تشکر یادتون نره.
من توی این سایت دپرس شدم :ناراحت:
:لبخندساده:

[amin_iman82]

مرسی DoDoklak (http://barnamenevis.org/forum/member.php?u=43259) جان :لبخند:

[nasseritemp]

با سلام. برنامه اي كه من نوشتم اطلاعات چك رو با استفاده ازپرفراژ چاپ ميكنه؟
مشكلي كه من دارم مربوط به نوع پرفراژ هست(PR9,PR2E,PR2Plus). آيا ميشه Report رو طوري تنظيم كرد كه بدون توجه به نوع چاپگر اطلاعات رو در محل هاي مورد نظر چاپ كنه؟

[amin_iman82]

من تاحالا با پرفراژ کار نکردم ، ببخشید :ناراحت:

میرم دنبال اگه چیزی پیدا کردم میذارم همین جا.

[nasseritemp]

من تاحالا با پرفراژ کار نکردم ، ببخشید :ناراحت:

لازم نيست حتما پرفراژ باشه. اين مشكل براي هر نوع پرينتري ممكنه پيش بياد.