[CrystalReports]プリンタのキューに、指定した帳票タイトルを表示させる

// 帳票のタイトルをセット
cryReport.SummaryInfo.ReportTitle = "ピッキングリスト";
 
// プリンタに印刷
cryReport.PrintToPrinter( 0, false, 0, 0 );

Dim crReportDocument        As New ReportDocument
Dim boReportClientDocument  As ISCDReportClientDocument
Dim boPrintOutputController As PrintOutputController
Dim boPrintReportOptions    As New PrintReportOptions
 
' load the report
 
boReportClientDocument  = crReportDocument.ReportClientDocument
boPrintOutputController = boReportClientDocument.PrintOutputController
 
' set print job title
boPrintReportOptions.JobTitle = "ピッキングリスト"
 
' print the report
boPrintOutputController.PrintReport(boPrintReportOptions)