关于水晶报表打印的问题，请各路大侠指点迷津

Question

水晶报表在Web页里面没有打印功能。如果要实现打印，可以将其导出为PDF格式。

Answer 1

Private Sub PrintReport(ByVal printerName As String)
   Dim margins As PageMargins   ' 获取 PageMargins 结构并设置
   ' 报表的边距。
   margins = Report.PrintOptions.PageMargins
   margins.bottomMargin = 350
   margins.leftMargin = 350
   margins.rightMargin = 350
   margins.topMargin = 350
   ' 应用页边距。
   Report.PrintOptions.ApplyPageMargins(margins)   ' 选择打印机。
   Report.PrintOptions.PrinterName = printerName   ' 打印报表。将 startPageN 和 endPageN
   ' 参数设置为 0 表示打印所有页。
   Report.PrintToPrinter(1, False, 0, 0)
End Sub