推荐订阅源

上篇文章　写了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 - 1
            Set Form7.PrintPreview.PrintView = cls
            Form7.Show vbModal

然后是相关的函数模块下载