پرینت مستقیم در کریستال 9

[maisam57]

سلام
از کامپوننت viewer استفاده کردنم اینم کدش


Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim s As String
Dim s2 As String
s = "Provider=MSDAORA.1;User ID=store;Data Source=bipcstore;Persist Security Info=False;Password=secinvbas"
s2 = "\reports\report15.rpt"
Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & s2)
Report.DiscardSavedData
Report.Database.Tables(1).ConnectBufferString = s
Report.RecordSelectionFormula = "{SA_V_EXIT_REPORT13.LOAD_SERIAL_NUMBER}='" + frmAddEditEnterWeightInfo1N.txtSerialNumber + "'"
Report.FormulaFields.GetItemByName("frmCurUser").Text = "'" & CurrentUser & "'"
CRViewer9.ReportSource = Report
CRViewer9.ViewReport

حالا میخوام مستقیم بدون preview سه تا پرینت پشت سر هم بگیرم

[maisam57]

آقا حل شد


Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim s As String
s = "Provider=MSDAORA.1;User ID=store;Data Source=bipcstore;Persist Security Info=False;Password=secinvbas"
Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & "\reports\report15.rpt")
Report.DiscardSavedData
Report.Database.Tables(1).ConnectBufferString = s
Report.RecordSelectionFormula = "{SA_V_EXIT_REPORT13.LOAD_SERIAL_NUMBER}='" + frmAddEditEnterWeightInfo1N.txtSerialNumber + "'"
Report.FormulaFields.GetItemByName("frmCurUser").Text = "'" & CurrentUser & "'"
'CRViewer9.ReportSource = Report
Report.PrintOut False
Report.PrintOut False
Report.PrintOut False
Set crystal = Nothing
Set Report = Nothing