主题：求教,打印反映速度较慢原因.

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 90 '纸张宽度为90毫米
doc.PageSetting.Height = 50
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarWidth = 0.33
Bar.BarHeight = 15
Bar.BearerBarWidth = 10
Bar.CodeAlignment = Barpro.Alignment.AboveCenter
Bar.DisplayChecksum = False
Bar.DisplayStartStopChar = False
Bar.Font = New Font("宋体",10)
 For i As Integer = 0 To s3 -1
        Doc.PageSetting.Landscape = True '横向打印
        Dim ra As New prt.RenderArea '定义一个容器
         Dim rt2 As New prt.RenderTable() '定义一个表格对象

         .

         .

         .

        ra1.Children.Add(img1) '加入图片到RenderArea中
        ra2.Children.Add(img2) '加入图片到RenderArea中
        ra.Children.Add(rt2) '加入到容器中
        ra.Children.Add(rt1) '加入到容器中
         Doc.Body.ChildRen.Add(ra) '将容器加入到报表中 
Next
Doc.PrinterName = pt
doc.Print()

一共只有3页,从开始到打印需要至少40秒种.

请教,产生原因可能是哪方面?谢谢指点!