ActiveReportsの余白設定について

＜印刷ボタン押下処理＞
Public Class frmXXXX
    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Try
            Dim okButtonIsPushed As Boolean
            Dim rpt As DataDynamics.ActiveReports.ActiveReport3
            rpt = New rptXXXX
            Dim RptInfo As New clsReportInfo
            RptInfo.SetMargin(strReportID, rpt)
            rpt.Run()
            Dim DiaInfo As New clsDialogInfo
            okButtonIsPushed = DiaInfo.PrintDialog(strReportID, rpt, True, False, True)
        Catch ex As Exception
            AppErrorHandler(ex)
        End Try
End Class
＜用紙サイズや余白設定＞
Public Class clsReportInfo
    Public Sub SetMargin(ByVal strReportID As String, ByRef rpt As ActiveReport3)
        Try
            '用紙サイズの設定
            rpt.PageSettings.PaperKind = Printing.PaperKind.A4	'A4
            rpt.PageSettings.Orientation = DataDynamics.ActiveReports.Document.PageOrientation.Portrait	'縦
            '余白の設定
            rpt.PageSettings.Margins.Top = ActiveReport3.CmToInch(1.0)     '上余白
            rpt.PageSettings.Margins.Bottom = ActiveReport3.CmToInch(1.0)  '下余白
            rpt.PageSettings.Margins.Left = ActiveReport3.CmToInch(2.0)    '左余白
            rpt.PageSettings.Margins.Right = ActiveReport3.CmToInch(2.0)   '右余白
        Catch ex As Exception
            AppErrorHandler(ex)
        End Try
    End Sub
End Class