截图拉动条 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 截图拉动条

共有2733人关注过本帖树形打印复制链接主题：截图拉动条

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/21 23:30:00 [显示全部帖子]

认认真真看帮助文档

http://www.foxtable.com/webhelp/scr/1590.htm

http://www.foxtable.com/webhelp/scr/2437.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/22 15:51:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导出合并pdf.table

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/22 17:03:00 [显示全部帖子]

测试没问题，生成的图片名叫做

test_page1.jpg

test_page2.jpg

test_page3.jpg

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/22 17:06:00 [显示全部帖子]

高度设置大一些。

根据实际需要设置宽高参数。

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/22 17:47:00 [显示全部帖子]

参考代码，红色的表示分辨率，默认是150

Dim dlg As new SaveFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    e.Form.Page.Width = 10000 '纸张宽度为100毫米
    e.Form.Page.Height = 500 '纸张高度为120毫米
    Dim grp = e.Form.Controls("SplitContainer1").panel1
    Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
    doc.SaveImage(dlg.FileName, 10)
End If

下一主题 >> << 上一主题

主题：截图拉动条