[求助] pdf 预览 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] pdf 预览

共有2299人关注过本帖树形打印复制链接主题：[求助] pdf 预览

KWK001

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

等级：幼狐帖子：110 积分：1417 威望：0 精华：0 注册：2016/8/17 12:49:00

[求助] pdf 预览 发帖心情

Post By：2016/9/22 19:39:00 [显示全部帖子]

另外想用另外方法写，就是不可以限制打印和编辑，跟不会第三方插件，信心得没有了。哎。

Dim dr As DataRow = Tables("表A").Current.DataRow
Dim fl As String =DataTables("表A").dataCols("第一列").DefaultFolder & dr("第一列")

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = fl

无效的URI

麻烦大侠帮帮忙，我确实做不出来了

[此贴子已经被作者于2016/9/22 19:49:11编辑过]

KWK001

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

等级：幼狐帖子：110 积分：1417 威望：0 精华：0 注册：2016/8/17 12:49:00

Post By：2016/9/22 22:05:00 [显示全部帖子]

谢谢，就是放大后在中间，不能靠左侧放大吗？

另外打印按钮代码，为什么打不出呢？

Dim doc As New PrintDoc '定义一个报表对象

Dim rm As New prt.RenderImage '定义一个图片对象

rm.Image = GetImage("PictureBox1")

'设置图片

rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

doc.Body.Children.Add(rm) '将图片对象加入报表

Doc.Preview() '预览

主题：[求助] pdf 预览