点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

嗨；

我的系统是独立的，并具有 vb.net 2005和Oracle数据库。

当通过Crystal Report查看器打印时，我得到给定Batchno的正确输出。 下面是我的代码：

导入CrystalDecisions.CrystalReports.Engine

导入CrystalDecisions.Shared

导入System.Data.OleDb

公共类frmTPReciepts

公共strBatchNo作为字符串

Private Sub CrystalReportViewer1_Load（ByVal发送者为System.Object，ByVal e为System.EventArgs）处理CrystalReportViewer1.Load

将crtableLogoninfos设置为新的TableLogOnInfos

将crtableLogoninfo用作新的TableLogOnInfo

将crConnectionInfo设置为新的ConnectionInfo

将CrTable设置为表格

将CrTable设置为表格

Dim TableCounter

将crReportDocument设置为新的TmpReceipt

使用crConnectionInfo

.ServerName =" glhrm"

.DatabaseName =""

.UserID =" PERMIT"

.Password =" ADM01"

结尾为

crReportDocument.Refresh（）

CrTables = crReportDocument.Database.Tables

对于CrTable中的每个CrTable

crtableLogoninfo = CrTable.LogOnInfo

crtableLogoninfo.ConnectionInfo = crConnectionInfo

CrTable.ApplyLogOnInfo（crtableLogoninfo）

下一步

CrystalReportViewer1.ReportSource = crReportDocument

将paramFields设置为新的ParameterFields

将paramField设置为新的ParameterField

将离散Val设置为新的ParameterDiscreteValue

paramField.ParameterFieldName =" BatchNo"

discreteVal.Value = strBatchNo

paramField.CurrentValues.Add（discreteVal）

paramFields.Add（paramField）

CrystalReportViewer1.ShowRefreshButton = False

CrystalReportViewer1.ShowTextSearchButton = False

CrystalReportViewer1.ShowExportButton = False

CrystalReportViewer1.Zoom（100）

对于上述代码，它给出正确的结果。 但是，当我尝试不进行预览即直接打印时进行打印时，输出错误。 这意味着打印带有不同的批号。 贝娄是代码。

将prd作为新System.Drawing.Printing.PrintDocument

将objRpt设为新的TmpReceipip

objRpt.PrintOptions.PrinterName =" Tally Dascom 2600（副本1）"

objRpt.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4

objRpt.PrintToPrinter（1，False，0，0）

请帮助我进行排序

谢谢