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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201)
+--- الموضوع : [كود] كود طباعة XtraReport دون عرض التقرير (/showthread.php?tid=25309)



كود طباعة XtraReport دون عرض التقرير - islamf3thy - 09-06-18

كود :
[C#]
MyReport report = new MyReport();

//Set the data source
report.DataSource = MyReportDataSource;

//Set any parameters in your report
report.Parameters["ParameterName"].Value = ParameterValue;
report.Parameters["ParameterName2"].Value = ParameterValue2;

//Create the report document
report.CreateDocument();

//Print the report document
report.Print();

كود :
[VB.NET]
Imports DevExpress.XtraReports.UI
Imports System.IO
Imports DevExpress.XtraPrinting
Imports System.Data
Imports System.Drawing

Partial Class TPV_Tickets
   Inherits System.Web.UI.Page
   Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
       Dim Report As New TicketTPV

      ' THIS IS TO TAKE THE DEFAULT LOCAL PRINT
       Dim instance As New Printing.PrinterSettings
       Dim DefaultPrinter As String = instance.PrinterName

       ' THIS IS TO PRINT THE REPORT
       Report.PrinterName = DefaultPrinter
       Report.CreateDocument()
       Report.PrintingSystem.ShowMarginsWarning = False
       Report.Print()

   End Sub
End Class