Public Function Init3(ByRef dt As DataTable) As Object
Dim objReportView As New fCommonReportView
Dim a As fCommonPrintManager = New fCommonPrintManager
Dim ps As Printing.PrinterSettings
ps = New Printing.PrinterSettings()
ps = printer.PrinterSettings
a.DocumentSource = objReportView.C1FlexReport1
a.Options = New C1.Win.C1Document.C1PrintOptions
a.Options.PrinterSettings = ps
a.Options.PrintJobName = "123"
a.Print()
Return True
End Function |