主题：关于报表中骑缝章自动生成

 截取图片的一部分，添加到你某一页去。

 截取代码参考

Dim img = getimage("d:\test.jpg")
Dim bmp As new bitmap(100, 100) '宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = 10 '开始坐标
Dim y As Integer = 20 '开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\test001.jpg")
bmp.dispose

比如你有10页，那么就把图片平分成10份，一页显示一份。

下面代码，截取第二页图片出来

Dim img = getimage("d:\test.jpg")
Dim pages As Integer = 10
Dim page As Integer = 2

Dim imgw as integer = img.width / pages

Dim bmp As new bitmap(imgw, img.height) '宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = (page-1)*imgw '开始坐标
Dim y As Integer = 0 '开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\test001.jpg")
bmp.dispose