CommandDialog并不会直接打印到文件,需要呢自己写代码编写,他只是负责记录用户选择了什么选项,比如打印多少也,打印到文件还是打印机。其实打印到文件需要呢自己写。CommonDialog1.Flags = cdlPDPrintToFile
CommonDialog1.ShowPrinter
if CommonDialog1.Flags=cdlPDPrintToFile then
'打印到文件
elseend if
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey
CommonDialog1.ShowPrinter
if CommonDialog1.Flags=cdlPDPrintToFile then
'打印到文件
elseend if
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
Form1.PrintForm
Next i
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub