以下是引用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("导出报价表成功!", "提示")
在这代码的上边加上打印代码就是你的功能了
加好友 
发短信
Post By：2013/10/30 23:09:00 [显示全部帖子]
