请问如何实现打开一个文件对话框，选择文件格式，保存到指定的文件？

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|pdf文件|*.pdf|图形文件|*.jpg|文本文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

下面这段代码应该怎么写？

难道是试用版到期的问题？等二天加密狗到货再试看

 导出表？参考

http://www.foxtable.com/webhelp/scr/0683.htm

老师！我试了几种方法都不管用啊，图片导出来是黑屏的

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|pdf文件|*.pdf|图形文件|*.jpg|文本文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     e.Form.Controls("Table1").Table.SaveExcel(dlg.FileName, "缺货提示")  \'保存文件
End If

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "图形文件|*.jpg" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If

 1、把table控件放在一个容器里。

 2、用打印容器的方式 http://www.foxtable.com/webhelp/scr/2437.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:a.zip

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.SaveImage("c:\\data\\abc.jpg",300)

就这个成功导出，但默认的打印设置需要更改

请问更改默认的打印设置会对调拨单中打印代码的打印结果有影响吗？

e.Form.Page.Width = 241
e.Form.Page.Height = 93
e.Form.Page.LeftMargin = 17 \'设置左边距
e.Form.Page.RightMargin = 17 \'设置右边距
e.Form.Page.TopMargin = 5 \'设置上边距
e.Form.Page.BottomMargin = 2 \'设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False \'禁止自动旋转打印内容
doc.Print()