专家坐堂-报表输出时,水印被覆盖Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)

\'-----------追加图片