以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报表打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118069)
--  作者：zunwoun
--  发布时间：2018/4/24 12:36:00
--  报表打印问题
有没有方法无论报表打印内容多少可以自动缩放打印在一张纸上？
--  作者：有点甜
--  发布时间：2018/4/24 14:29:00
--  
是什么报表？专业报表、excel报表？
--  作者：zunwoun
--  发布时间：2018/4/26 12:10:00
--  
专用报表
--  作者：有点甜
--  发布时间：2018/4/26 13:13:00
--  
以下是引用zunwoun在2018/4/26 12:10:00的发言：
专用报表

 

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

 

保存图片 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