主题：如果将表只保存为1个jpg文件，不要page1和page2这样的

 必须用代码处理

Dim imgs As new List(Of image)
Dim w As Integer = 0
Dim h As Integer = 0
For i As Integer = 1 To 3
    imgs.Add(getimage("d:\page" & i & ".jpg"))
    h += imgs(i-1).Height
    w = imgs(i-1).width
Next
Dim bmp As New bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim offset As Integer = 0
For Each img As image In imgs
    g.DrawImage(img, 0, offset, img.width, img.height)
    offset += img.height
Next
bmp.Save("D:\pagesss.jpg", Imaging.ImageFormat.Jpeg)

g.Dispose()