直接打印报告，无需打印对话框和报告查看器

本文介绍了直接打印报告，无需打印对话框和报告查看器的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 我需要将报告直接打印到打印机： 1）没有显示打印对话框 2）没有显示Reportviewer 我被建议使用以下代码： Dim printerSettings As New PrinterSettings（） Dim printDialog As 新 PrintDialog（） printDialog.PrinterSettings = printerSettings printDialog.AllowPrintToFile = False printDialog.AllowSomePages = True printDialog.UseEXDialog = True Dim 结果 As DialogResult = printDialog.ShowDi alog（） 如果 result = DialogResult.Cancel 那么 返回 结束 如果 我 .rptSalesReport.PrintOptions.PrinterName = printerSettings.PrinterName Me .rptSalesReport.PrintToPrinter（printerSettings.Copies， False ， 0 ， 0 ） 但我在最后两行收到错误，我把报告的名字写在， rptSalesReport。它说： rptSalesReport 不定义。 虽然我的项目中有rptSalesReport，但我可以通过报告查看器查看。 请指教。 谢谢解决方案 Hi,I need to print my reports directly to printer:1) Without showing print dialogue box2) Without showing the ReportviewerI was suggested the following code:Dim printerSettings As New PrinterSettings() Dim printDialog As New PrintDialog() printDialog.PrinterSettings = printerSettings printDialog.AllowPrintToFile = False printDialog.AllowSomePages = True printDialog.UseEXDialog = True Dim result As DialogResult = printDialog.ShowDialog() If result = DialogResult.Cancel Then Return End If Me.rptSalesReport.PrintOptions.PrinterName = printerSettings.PrinterName Me.rptSalesReport.PrintToPrinter(printerSettings.Copies, False, 0, 0)But I am receiving error on the last two lines, where I put the name of my reports,rptSalesReport. It says:rptSalesReport is not defined.While the rptSalesReport is there in my project and I can view it through report viewer.Please advise.Thanks 解决方案 这篇关于直接打印报告，无需打印对话框和报告查看器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！