主题：[求助]请问如何实现打开一个文件对话框，选择文件格式，保存到指定的文件？

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

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

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

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

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

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 doc As PrintDoc = e.Form.GernatePrintDoc()
doc.SaveImage("c:\data\abc.jpg",300)

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

老师！我是想将piao据或表中筛选出的数据保存为图片，这样通过QQ将图片发送到同事的手机上，方便他们查看物料明细，虽然有截图工具，但我想先试试用狐表直接图片保存

为什么我用上面的方式保存的图片都是黑屏的呢？

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

点击浏览该文件: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()