vb中使用Xtreme Command Bars ActiveX Control 的IPrintView接口绘制图形_后记

 

上篇文章　写了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

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