如何在屏幕上执行打印图像？

Question

我是VB6的新手，我需要在页面上打印图像。我在同一页面的两个不同位置有打印选项。

我尝试了什么：

我尝试编写一种常用方法来执行打印操作：

Private Sub mnuPrintImage_Click()
    On Error GoTo mnuPrintImage_Click_Error

    gobjRLItemImage.PrintImage imgItem 
    Exit Sub

mnuPrintImage_Click_Error:
    ShowError "frmItem.mnuPrintImage_Click"
End Sub

我尝试使用Me.PrintForm，但是当我这样做时，我会弹出一个保存完整页面的弹出窗口。但是，我需要直接打印图像，不想在本地保存。

Public Sub PrintImage()
    On Error GoTo PrintImageError

    me.printform
    Exit Sub

PrintImageError:
    Select Case Err.Number
        Case 440:
            ' Cancel button pressed; do nothing
        Case Else
            Err.Raise Err.Number
    End Select
End Sub