Public Shared Sub printToPrinter(ByVal crySource As CrystalDecisions.Web.CrystalReportSource)
'printer名取得
Dim printDoc As New System.Drawing.Printing.PrintDocument
Dim printer As String = printDoc.PrinterSettings.PrinterName
'option設定
With crySource.ReportDocument.PrintOptions
.PrinterName = printer
.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4
.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait
End With