ActiveReports打印的问题

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="skillChohyo.aspx.vb" Inherits="Skill.skillChohyo"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>skillChohyo</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout" language="javascript">
<form )

        If (Not sReturnReport Is Nothing) Then
            If (Not sReturnReport.Trim() = String.Empty) Then
                Call PrintData()
            End If
        End If

txtIsPrint.Value = 0
End Sub

Private Sub PrintData()

        Dim aSql As String
        Dim aDs As New DataSet
        Dim wSbp As New ServiceSiokManagement

Me.Page.Response.Buffer = True

aNKANO = CIntX(txtNKANO.Text)

        Dim rpt As New rptSK1070AX
        rpt.Fields.Add("NKANO")
        rpt.Fields("NKANO").Value = Session("NKANO")
        rpt.Fields.Add("USERIDNO")
        rpt.Fields("USERIDNO").Value = aSessUSERIDNO
        rpt.Run()

' メモリストリームにレポートの出力結果を保存します。
Dim outStream As MemoryStream = New MemoryStream

rpt.Document.Save(outStream, DataDynamics.ActiveReports.Document.RdfFormat.AR20)

' バッファストリーム内の位置を先頭に移動します。
outStream.Seek(0, SeekOrigin.Begin)

        ' ストリーム読み込み用のバッファを作成しストリームのデータを読み込みます。
        Dim bytes(outStream.Length) As Byte
        outStream.Read(bytes, 0, CType(outStream.Length, Integer))

' 出力内容をバッファストリームから削除します。
Me.Page.Response.ClearContent()

' ヘッダへの出力内容をバッファストリームから削除します。
Me.Page.Response.ClearHeaders()

        ' 出力ストリームにレポートを出力します。
        Me.Page.Response.BinaryWrite(bytes)
        ' バッファリングされているすべての内容をクライアントへ送信します。
        Me.Page.Response.End()
    End Sub
End Class