有知道的朋友请回答

Question

Dim lReturn As Long
    Dim llhwnd As Long
    Dim txtPrint As String
       
    txtPrint = Label10.Caption
    llhwnd = GetDC(FrmMain.hwnd)
    lReturn = StretchBlt(PicBox.hdc, _
                  0, 0, PicBox.Width / Screen.TwipsPerPixelX, _
                  PicBox.Height / Screen.TwipsPerPixelY, llhwnd, _
                PicBox.Left / Screen.TwipsPerPixelX, ECG_Show2.top / Screen.TwipsPerPixelY, _
                  PicBox.Width / Screen.TwipsPerPixelX, _
                  PicBox.Height / Screen.TwipsPerPixelY, &HCC0020)
    PicBox.Refresh'调用系统打印机
    On Error Resume Next
      With CDprint
        .DialogTitle = "打印"
        .CancelError = True
        .Flags = 1
        Printer.FontSize = CDprint.FontSize
        .ShowPrinter        If err <> MSComDlg.cdlCancel Then
           Printer.FontTransparent = False
           
           Printer.Print txtPrint
           Printer.PaintPicture PicBox.Image, 1000, 1000, PicBox.Width, PicBox.Height
        End If
End With
打印时进度到60%就停止不动了.只有把程序给关了才能完成打印,请问如何解决