リストボックスには、印刷の際には、収まりきらない文章を書く必要があり、困っております。
以下のように、しましたが、１行しか書けません。
Dim js As String = "XXXXXXX1"
Me.ClientScript.RegisterStartupScript(Me.GetType, "Text", js)   
js = "XXXXXXXXXX2"
Me.ClientScript.RegisterStartupScript(Me.GetType, "Text", js)