- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 截图拉动条 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107133)
-- 发布时间：2017/9/21 21:35:00
-- 截图拉动条
可以设计一个按钮 点击一些，把某个控件内所有的截成一张图片吗？
比如窗口 某个表需要用拉动条才能看完，点击一下按钮，然后把这个表（包括要用拉动条才能看到的）截图到另存为？感谢 感谢，这样可以实现吗？
-- 发布时间：2017/9/21 22:12:00
--
参考
http://www.foxtable.com/webhelp/scr/1590.htm
http://www.foxtable.com/webhelp/scr/2437.htm
http://www.foxtable.com/webhelp/scr/2450.htm
-- 发布时间：2017/9/21 22:39:00
--
能帮忙看看吗？为什么导出的是窗口的名呀 感谢 感谢
此主题相关图片如下：qq截图20170921223817.jpg
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "计划表窗口_Table9"
rt.Style.TextColor = Color.Red
rt.Style.TextAngle = -45
doc.Body.Children.Add(rt)
doc.SaveImage("c:\\data\\abc.jpg")
-- 发布时间：2017/9/21 23:30:00
--
认认真真看帮助文档
http://www.foxtable.com/webhelp/scr/1590.htm
http://www.foxtable.com/webhelp/scr/2437.htm
-- 发布时间：2017/9/22 14:50:00
--
此主题相关图片如下：qq截图20170922144644.png
能帮忙看看吗？我打出来的都是文字，不是表的内容，pdf也是红色的框，麻烦了，感谢 感谢
-- 发布时间：2017/9/22 15:51:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出合并pdf.table |
-- 发布时间：2017/9/22 16:00:00
--
感谢 感谢 完美，如果是图片改哪里啊，我可以设置pdf的尺寸吗？每页被分开了，看起来容易看混。感谢 感谢
-- 发布时间：2017/9/22 16:12:00
--
e.Form.Page.Width = 10000 \'纸张宽度为100毫米
e.Form.Page.Height = 120 \'纸张高度为120毫米
Dim grp = e.Form.Controls("SplitContainer1").panel1
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.Preview()
\'doc.SavePDF("d:\\test.pdf")
\'doc.SaveImage("d:\\test.jpg")
http://www.foxtable.com/webhelp/scr/2450.htm
[此贴子已经被作者于2017/9/22 16:12:48编辑过]
-- 发布时间：2017/9/22 16:45:00
--
为什么把代码改了 还是不能生成图片呢，还是pdf
感谢 感谢
e.Form.Page.Width = 10000 \'纸张宽度为100毫米
e.Form.Page.Height = 120 \'纸张高度为120毫米
Dim grp = e.Form.Controls("SplitContainer1").panel1
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
\'doc.Preview()
\'doc.SavePDF("d:\\test.pdf")
doc.SaveImage("d:\\test.jpg")
-- 发布时间：2017/9/22 17:03:00
--
测试没问题，生成的图片名叫做
test_page1.jpg
test_page2.jpg
test_page3.jpg