以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  關於專業報表另存為TIFF格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162127)

--  作者:hnguang
--  发布时间:2021/4/6 17:30:00
--  關於專業報表另存為TIFF格式
請問可以用代碼將專業報表另存為TIFF格式嗎,

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

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_1617700620721.png
图片点击可在新窗口打开查看



--  作者:hnguang
--  发布时间:2021/4/6 17:30:00
--  
正麥部份是繪圖生成的
--  作者:hnguang
--  发布时间:2021/4/6 17:31:00
--  
存成PDF就沒有了
--  作者:hnguang
--  发布时间:2021/4/6 17:35:00
--  
    Dim rg1 As New prt.RenderGraphics()
    rg1.Graphics.DrawLine(Pens.black,0,40,100,0)
    rg1.Graphics.DrawLine(Pens.black,0,40,100,70)
    rg1.Graphics.DrawLine(Pens.black,200,40,100,0)
    rg1.Graphics.DrawLine(Pens.black,200,40,100,70)
    
    Dim fnt As New Font("宋体",10)
    Dim msg As String = dr("條款備註1")
    rg1.Graphics.DrawString(msg,fnt,Brushes.black,75,35)
    p.otherobjects.add("條款備註1",rg1)

--  作者:有点蓝
--  发布时间:2021/4/6 20:21:00
--  
保存为图片:http://www.foxtable.com/webhelp/topics/2450.htm
[此贴子已经被作者于2021/4/6 20:21:43编辑过]