PDA

View Full Version : ارسال پرینت به دو پرینتر و یا بیشتر



dll9095
شنبه 14 اسفند 1389, 01:11 صبح
فرض کنید یک برنامه رستوران و وقتی که سفارش تموم شد لیست غذا رو به دو پرینتر فرستاده بشه .

ali_najari
دوشنبه 16 اسفند 1389, 01:16 صبح
برای اینکه به یک پرینتر دلخواه بفرستی شما باید ابتدا یک ReportDocument تعریف کنید که شامل گزارش نهایی شما میشه که آن را Load میکنی و اطلاعاتت را در آن وارد میکنی
به عنوان مثال:

Dim RD AsNew ReportDocument
RD.Load("MyReport.rpt")

RD.SetDataSource(TBL)

RD.PrintOptions.PrinterName = "Your Printer Name"
RD.PrintToPrinter(1, False, 0, 0)