有知道的朋友请回答,该怎么处理

有知道的朋友请回答
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%就停止不动了.只有把程序给关了才能完成打印,请问如何解决

------解决方案--------------------
Printer.EndDoc