Dim dt As DataTable
dt = DataTables("表A")
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.PaperKind = 9 '纸张类型改为A4
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 5 '设置下边距
Dim nd As Integer
'Dim P As WinForm.Painter = e.Form.Controls("Painter1")
Dim p As New prt.RenderGraphics
Dim G As Graphics = P.Graphics
g.clear(Color.white)
Dim N As New pen(color.blue , 2)
Dim fnt As New Font("宋体",10)
Dim fnt1 As New Font("宋体",20)
g.TranslateTransform(0 , 800 )
g.RotateTransform(-45)
g.DrawString("机密文件111111111",New Font("宋体",70),Brushes.Gray ,10,10)
g.RotateTransform(45)
g.TranslateTransform(0 , -800 )
g.DrawRectangle(n,0,50,150,40)
'-----------追加图片
加好友 
发短信
Post By：2019/8/7 10:15:00 [只看该作者]
