主题：报表打印问题

有没有方法无论报表打印内容多少可以自动缩放打印在一张纸上？

是什么报表？专业报表、excel报表？

专用报表

 

比较麻烦，另存为图片，然后合并图片，最后缩放打印图片

 

保存图片 http://www.foxtable.com/webhelp/scr/2450.htm

 

合并图片

 

Dim imgback As image = getimage("d:\test.jpg")
Dim img As image = getimage("d:\test.ico")
Dim bmp As new bitmap(imgback.width+img.width, imgback.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)
Dim x As Integer = imgback.Width
Dim y As Integer = 0
Dim w As Integer = img.width
Dim h As Integer = img.height
g.DrawImage(img, x, y, w, h)
bmp.Save("d:\test02.jpg", ImageFormat.Jpeg)
bmp.dispose

 

打印图片 http://www.foxtable.com/webhelp/scr/1182.htm