主题：[求助]

跪求各位大虾帮忙编一段代码。要求是：我自己已设计了一个打印窗口，希望在打印窗口页面点击“打印”后，窗口页面的内容可以自动保存成EXCEL。

窗口估计是无法保存为Excel了.

坐等高人也许有辙

 只能存为 pdf 或者 excel

可能是我说的不清楚。或者是这么说。我需要设计一个保存控件，打印后按“保存”则在表中生成对应的数据。

我刚看了帮助，你可以看下打印可保存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("导出报价表成功!", "提示")

 

在这代码的上边加上打印代码就是你的功能了

 

在打印预览里，报表可以另存为任意格式。