我如何在VB6中在屏幕上执行打印图像

问题描述

我需要在vb6的页面上打印图像.我在同一页面的2个不同位置有打印选项. 我是vb6的新手.你能帮我吗 在此先感谢. 我尝试过的事情: 所以我试图写出执行打印操作的通用方法

I need to print images on a page in vb6. I am having print option''s in 2 different places on same page. I am completely new to vb6. Could you please help me Thanks in Advance. What I have tried: so i tried to write common method to perform print operation

Private Sub mnuPrintImage_Click()
10        On Error GoTo mnuPrintImage_Click_Error
20        gobjRLItemImage.PrintImage imgItem  
30        Exit Sub

mnuPrintImage_Click_Error:
40        ShowError "frmItem.mnuPrintImage_Click"
End Sub

我尝试使用Me.PrintForm，但是当我尝试使用Me.PrintForm时，我会弹出一个对话框来保存整个页面.但是我需要直接打印图像，并且不想将图像保存在本地.

I tried to use Me.PrintForm ,but when i try to use Me.PrintForm i am getting a popup to save the complete page. but i need to print image directly and don''t want to save image in local.

Public Sub PrintImage()
10        On Error GoTo PrintImageError
20        me.printform
30        Exit Sub

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

推荐答案