你可以多看看MSN啊,上面有的。
以下是我写的代码,仅供参考:
If PrintDialog1.ShowDialog = DialogResult.OK Then
Dim ds As New DataSet1
Dim report As New ReportDocument
report.Load("MyReport.rpt")
repot.PrintOptions.PrinterName = "printer name" '指定打印机为默认
report.SetDataSource(ds)
report.PrintToPrinter(1, True, 0, 0)
Catch engEx As LogOnException
MessageBox.Show _
("Incorrect Logon Parameters. Check your user name and password.")
Catch engEx As DataSourceException
MessageBox.Show _
("An error has occurred while connecting to the database.")
Catch engEx As EngineException
MessageBox.Show(engEx.Message)
End Try
Else
Exit Sub
End If