打印没有预览视图和预览浏览器视图的报表

Question

如何在没有预览的情况下使用默认的本地打印机打印报表？我尝试放置此代码行，但不起作用：

Dim rep As New XtraReport1()
rep.DataSource = DataSet
rep.CreateDocument()
rep.Print()

谢谢

Answer 1

我用这段代码解决了我的问题：

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

打印没有预览视图和预览浏览器视图的报表

Print a report without preview view and without preview browser view

vb.net

devexpress

xtrareport