主题：控件打印问题

我测试没问题，做一个实例发上来测试。（pdf文件）也要加进来才能测试。

不应该有问题，具体实例发上来测试。

改成

        Dim p As WinForm.Panel = e.Form. Controls("Panel1")
        Dim doc As PrintDoc = e.Form. GernatePrintDoc(p)
        For Each c As object In Doc.Body.Children
            If Typeof c Is prt.RenderImage Then
                c.x = 0
                c.y = 0
                c.Width = "Parent.Width" '宽度等于页面宽度
                c.Height = "Auto" '高度由图片大小自动决定
                c.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
                c.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
            End If
        Next
        doc.Preview()

或者 http://www.foxtable.com/webhelp/scr/1182.htm