以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]我想问下如何给图片增加边框,并指定某个打印机打印?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157703)

--  作者:chen37280600
--  发布时间:2020/10/26 13:36:00
--  [求助]我想问下如何给图片增加边框,并指定某个打印机打印?

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

我想给固定分辨率的图片,批量添加一些我自己做好的png相框素材,生成合成图后,并指定某个打印机进行打印。

请问有没什么思路?那些部分是Foxtable目前能解决,哪些需要我另外找第三方插件实现?

--  作者:有点蓝
--  发布时间:2020/10/26 13:48:00
--  
合并图片

Dim imgback As image = getimage("d:\\a.png")   \'主图
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g As System.Drawing.Graphics  = System.Drawing.Graphics.FromImage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height) \'绘制主图\'
Dim img = GetImage("d:\\b.png")    \'获取副图片
Dim x As Integer = imgback.Width - 120 \'副图距离主图左边距
Dim y As Integer = imgback.height - 120 \'副图距离主图上边距
g.DrawImage(img, x, y, 100, 100)     \'绘制第二张图片
bmp.Save("d:\\c.jpg") \'保存
bmp.dispose \'释放资源\'

把图片放到专业报表里打印:http://www.foxtable.com/webhelp/topics/1588.htm

--  作者:chen37280600
--  发布时间:2020/10/26 15:03:00
--  
妥了,完美,彻底解决需求
--  作者:曾先生
--  发布时间:2020/11/17 15:49:00
--  
怎么联系到你,我要找你定制个系统
--  作者:chen37280600
--  发布时间:2020/11/17 15:53:00
--  
以下是引用曾先生在2020/11/17 15:49:00的发言:
怎么联系到你,我要找你定制个系统、

QQ 2385350359
你是不是想搞婚庆摄影呢?

--  作者:曾先生
--  发布时间:2020/11/17 16:46:00
--  
不是哦,我加你QQ了