- 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=61345)
-- 发布时间：2014/12/11 9:07:00
-- 求助：在网页浏览器中如何预览专业报表呢？
求助：在网页浏览器中如何预览专业报表呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:光盘封面.txt |
如何在网页浏览器中显示呢？
Dim b1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
下面的代码怎么写？
谢谢
-- 发布时间：2014/12/11 9:08:00
--
做不到,除非你先存为HTML WORD Excel 等格式
-- 发布时间：2014/12/11 9:18:00
-- 回复：（Bin）做不到,除非你先存为HTML WORD Excel 等...
For i As Integer = 1 To 2
楼上代码部分内容
If i = 1 Then
Doc.SavePDF("D:\\001.PDF")
Else
doc.Preview()
End If
Next
难道只能这样操作么？
-- 发布时间：2014/12/11 9:20:00
--
无其他办法
-- 发布时间：2014/12/15 22:04:00
-- 回复：（Bin）做不到,除非你先存为HTML WORD Excel 等...
bin老师
我将代码更改如下了
Dim s As String
s = Format(Date.now, "D")
MessageBox.Show(s)
Dim dz As String
dz="d:\\data\\同步录音录像资料袋 " & s & ".pdf"
MessageBox.Show(dz)
doc.SavePDF(dz)
Dim b1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
b1.Address = "dz"
能够实现生成PDF 但是由于DZ是动态合成的名字组成的代码 在网页浏览器中怎么定位显示呢？
进一步深入假设S=2014年12月15日22点23分21秒 又怎么进行对应文件浏览呢？
-- 发布时间：2014/12/15 22:06:00
--
不是吧，楼主，这么基础的都还不会？
b1.Address = dz
-- 发布时间：2014/12/16 17:27:00
-- 回复：（有点甜） 不是吧，楼主，这么基础的都还...
有点甜老师
不是不会 应该需要双引号吧
Dim s As String
s = Format(Date.now, "D")
MessageBox.Show(s)
Dim dz As String
dz="d:\\data\\同步录音录像资料袋 " & s & ".pdf"
MessageBox.Show(dz)
doc.SavePDF(dz)
Dim b1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
b1.Address = "dz"
关键是这个dz 是动态组合而成的 在浏览器中定义这个地址不好整 打不开 求解
-- 发布时间：2014/12/16 17:30:00
--
呃，不可能把？你直接在webbrowser属性那里设置贴入一个路径，看行不行。
-- 发布时间：2014/12/16 17:34:00
-- 回复：（有点甜）? 呃，不可能把？你直接在webbr...
直接贴固定路劲肯定行 但是代码动态获取会提示路劲不对 哎
不知道是不是动态获取的那S时间问题
[此贴子已经被作者于2014-12-16 17:34:49编辑过]
-- 发布时间：2014/12/16 17:36:00
--
回复9楼，不可能不对啊。弹出msgbobx(dz)