添加CommonDialog
Private Sub cmdPrintMap_Click()
'打印地图   Dim NumCopies As Long, i As Long
   
   On Error GoTo ErrHandler
   
   CommonDialog1.CancelError = True   '将 Cancel 设置成 True。
   CommonDialog1.ShowPrinter   '显示“打印”对话框。   '从对话框中获取用户选定数值。
    NumCopies = CommonDialog1.Copies
    For i = 1 To NumCopies
        Printer.PaintPicture frmMap.picShowMap.Image, 0, 0
    Next iErrHandler:
   '用户按下了“取消”按钮。
End Sub

解决方案 »

  1.   


    From MSDN:
    Private Sub Command1_Click()
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    MsgBox CommonDialog1.filename
    Exit SubErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
    End SubPrivate Sub Command1_Click()
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    MsgBox CommonDialog1.filename
    Exit SubErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
    End Sub
      

  2.   

    From MSDN:
    Private Sub Command1_Click()
    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
    ' 此处放置将数据发送到打印机的代码
    Next i
    Exit Sub
    ErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
    End Sub
      

  3.   

    Private Sub Command1_Click()
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    MsgBox CommonDialog1.filename
    Exit SubErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
    End Sub这段程序,在那里指定要存的对象名呢?
      

  4.   

    RichTextBox1.SaveFile CommonDialog1.FileName, rtfText