こんにちは。
Crystal Reportsで作成したレポートを
Visual Studio 2013 で印刷する簡単なプログラムを作成しています。
プリンタ出力用紙が特殊でしたのでWindows上で用紙を追加したのですが
crReportDocument.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.
の補完機能で追加した用紙が表示されません。
どのようにして用紙を指定すればよいのでしょうか。
コードの抜粋を添付いたします。
******************************************
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click |
| Dim sBuff As String | |
| sBuff = Command() |
| Label1.Text = "Z:\送り状.rpt" |
| 'データベース更新(Start) | |
| Dim crTableLogoninfo As New TableLogOnInfo() | |
| Dim crConnectionInfo As New ConnectionInfo() |
| crReportDocument = New ReportDocument | |
| crReportDocument.Load(Label1.Text) |
| With crConnectionInfo | |
| .ServerName = "orcl" | |
| .UserID = "USER" | |
| .Password = "password1" | |
| End With |
| crReportDocument.Refresh() |
| For i As Integer = 0 To crReportDocument.Database.Tables.Count - 1 | |
| crTableLogoninfo = crReportDocument.Database.Tables(i).LogOnInfo | |
| crTableLogoninfo.ConnectionInfo = crConnectionInfo | |
| crReportDocument.Database.Tables(i).ApplyLogOnInfo(crTableLogoninfo) | |
| Next | |
| 'データベース更新(End) |
| crReportDocument.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4 '用紙サイズがA4 | |
| crReportDocument.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait '用紙の向きが縦 | |
| crReportDocument.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto '給紙方法は自動 |
| Try | |
| crReportDocument.PrintOptions.PrinterName = "\\serverDBS.LOCAL\NetPR_3" | |
| crReportDocument.PrintToPrinter(1, True, 1, 1) |
| MessageBox.Show("Report finished printing!") |
| Catch err As Exception | |
| MessageBox.Show(err.ToString()) | |
| End Try | |
End Sub
|