Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

プリンター出力用紙サイズについて

こんにちは。

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

Not what you were looking for? View more on this topic or Ask a question