'Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pan As WinForm.Panel = e.Form.Controls("Panel1")
Dim doc As new PrintDoc
Doc.PageSetting.Width=180
Doc.PageSetting.Height=100
Doc.PageSetting.TopMargin=10
Doc.PageSetting.BottomMargin=0
Doc.PageSetting.LeftMargin=10
Doc.PageSetting.RightMargin=10
Dim wbl As Double = Doc.PageSetting.Width.value / pan.Width
Dim hbl As Double = Doc.PageSetting.Height.value / pan.Height
For Each c As object In pan.Children
If c.Text = "张三" Then
Dim rg1 As New prt.RenderGraphics()
rg1.Graphics.RotateTransform(180)
Dim fnt As New Font("宋体",10)
Dim s = rg1.Graphics.MeasureString(c.Text,fnt)
rg1.Graphics.DrawString(c.Text,fnt,Brushes.Black,-1*s.Width,-1*s.Height)
rg1.x = new C1.C1Preview.Unit(CStr(c.left * wbl))
rg1.y = new C1.C1Preview.Unit(CStr(c.Top * hbl))
Doc.Body.Children.Add(rg1)
Else
Dim rt As new prt.RenderText
rt.Text = c.text
rt.x = new C1.C1Preview.Unit(CStr(c.left * wbl))
rt.y = new C1.C1Preview.Unit(CStr(c.Top * hbl))
Doc.Body.Children.Add(rt)
End If
Next
doc.Preview()
加好友 
发短信
Post By：2016/9/24 15:13:00 [只看该作者]
