以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能用专业报表代码实现窗口打印的效果么?【已解决】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160532)

--  作者:浙江仔
--  发布时间:2021/2/5 13:48:00
--  [求助]能用专业报表代码实现窗口打印的效果么?【已解决】
特别是窗口有底图,同时打印底图和文字标签,能用专业报表代码实现吗?
[此贴子已经被作者于2021/2/5 14:05:38编辑过]

--  作者:有点蓝
--  发布时间:2021/2/5 13:52:00
--  
当然可以
--  作者:浙江仔
--  发布时间:2021/2/5 13:58:00
--  
图片按比例缩放,这个什么代码?图片放进去太大了,下面的不奏效


Dim rm As New prt.RenderImage
rm.Width = 345 \'设置尺寸,这个尺寸最好和图表尺寸一致,以免打印出来的图表变形.
rm.Height = 218

rm.Image = GetImage(ProjectPath + "\\Images\\new.bmp")
rm.Style.ImageAlign.StretchHorz = True \'禁止拉伸
rm.Style.ImageAlign.StretchVert = True
rm.x = 10 + x
rm.y = 10 + y
doc.body.Children.Add(rm)
[此贴子已经被作者于2021/2/5 14:01:36编辑过]

--  作者:有点蓝
--  发布时间:2021/2/5 14:05:00
--  
设置小一点试试,专业报表的默认单位是毫米

rm.Width = 50 
rm.Height = 50
[此贴子已经被作者于2021/2/5 14:05:09编辑过]

--  作者:浙江仔
--  发布时间:2021/2/5 14:06:00
--  
谢谢,搞太大了