上篇文章 写了vb中使用Xtreme Command Bars ActiveX Control 的IPrintView接口绘制图形，但后来发现有个致命的问题，预览时没有问题，但实际输出到打印机时，则是一片
黑色，所以上篇代码无效．现重新上代码，解决以上问题的
本次实现原理是像素获取后，再逐个重绘出来．
首先还是使用IPrintView接口的类，
Implements IPrintView
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub IPrintView_BeginPrinting(ByVal hdc As Long, ByVal hAttribDC As Long, ByVal PrintInfo As XtremeCommandBars.PrintInfo)
End Sub
Private Sub IPrintView_EndPrinting(ByVal hdc As Long, ByVal hAttribDC As Long, ByVal PrintInfo As XtremeCommandBars.PrintInfo)
End Sub
Private Sub IPrintView_PrepareDC(ByVal hdc As Long, ByVal hAttribDC As Long, ByVal PrintInfo As XtremeCommandBars.PrintInfo)
End Sub
Private Sub IPrintView_PreparePrinting(ByVal PrintInfo As XtremeCommandBars.PrintInfo)
PrintInfo.MaxPage = 1
End Sub
Private Sub IPrintView_PrintPage(ByVal hdc As Long, ByVal hAttribDC As Long, ByVal PrintInfo As XtremeCommandBars.PrintInfo)
Dim r As RECT
r.Left = PrintInfo.PrintRectLeft
r.Top = PrintInfo.PrintRectTop
r.Right = PrintInfo.PrintRectRight
r.Bottom = PrintInfo.PrintRectBottom
If Not PrintInfo.PreviewMode Then
ZoomImage 4500, 4500
End If
MemOutPut hdc, False
End Sub
然后是调用类
With Pic1
.AutoRedraw = True
.Appearance = 0
.BorderStyle = 0
.ScaleMode = 3
End With
W = Pic1.ScaleWidth
H = Pic1.ScaleHeight
MemGet Pic1.hdc, 0, 0, W - 1, H - 1Set Form7.PrintPreview.PrintView = cls
Form7.Show vbModal
然后是相关的函数模块下载
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。