专业报表所有队员都可以设置大小的
Dim doc As New PrintDoc
Dim rg1 As New prt.RenderGraphics()
rg1.Graphics.DrawArc(Pens.Red, 0, 0, 30, 40, 0, 135)
rg1.Graphics.DrawEllipse(Pens.Blue, 20, 20, 90, 45)
rg1.Style.Borders.All = New prt.LineDef("1mm", Color.CornflowerBlue)
rg1.Width = 20
rg1.Height= 50
rg1.x = 30
rg1.y = 30
Doc.Body.Children.Add(rg1)
Doc.Preview()