frame能否打印出来

Question

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Const SRCCOPY = &HCC0020
Private Const SRCAND = &H8800C6
Private Const SRCPAINT = &HEE0086
Private Const SRCINVERT = &H660046
Private Sub cmdDisplay_Click()
    Dim hDC As Long
    Dim lReturn As Long
    Dim hWnd As Long
    
    hWnd = fra.hWnd
    hDC = GetDC(hWnd)
    With pic
        lReturn = BitBlt(.hDC, 0, 0, .ScaleWidth, .ScaleHeight, hDC, 0, 0, SRCCOPY)
    End With
End Subchange pic to Object Printer
that's ok

Answer 1

and release the dcPrivate Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
lReturn = ReleaseDC(hWnd, hDC)