有知道的朋友请回答
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