- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41916)
-- 发布时间：2013/10/30 11:04:00
-- [求助]
跪求各位大虾帮忙编一段代码。要求是：我自己已设计了一个打印窗口，希望在打印窗口页面点击“打印”后，窗口页面的内容可以自动保存成EXCEL。
-- 发布时间：2013/10/30 11:08:00
--
窗口估计是无法保存为Excel了.
-- 发布时间：2013/10/30 11:09:00
--
坐等高人也许有辙
-- 发布时间：2013/10/30 22:26:00
--
只能存为 pdf 或者 excel
-- 发布时间：2013/10/30 23:05:00
--
可能是我说的不清楚。或者是这么说。我需要设计一个保存控件，打印后按“保存”则在表中生成对应的数据。
-- 发布时间：2013/10/30 23:09:00
--
以下是引用zozo在2013-10-30 23:05:00的发言：
可能是我说的不清楚。或者是这么说。我需要设计一个保存控件，打印后按“保存”则在表中生成对应的数据。
可能是我说的不清楚。或者是这么说。我需要设计一个保存控件，打印后按“保存”则在表中生成对应的数据。
我刚看了帮助，你可以看下打印可保存excel那的提示。
比如导出为EXCEL文件代码：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("商品资料").SaveExcel(dlg.FileName, "商品资料") \'保存文件
End If
MessageBox.Show("导出报价表成功!", "提示")
在这代码的上边加上打印代码就是你的功能了
-- 发布时间：2013/10/31 19:53:00
--
在打印预览里，报表可以另存为任意格式。