关于打印的问题？printer.PaintPicture

Question

why not user vsflexgrid & vsview 6

Answer 1

vsflexgrid & vsview 6 是什么？
请具体点儿？

Answer 2

用IMAGE属性，具体是设PICTURE两个控件，一个可见别一个不可见后通过IMAGE  
交换！

Answer 3

Public Sub pictureTans(intCount As Integer)
     Dim rv As Long
     frmjds.ScaleMode = vbTwips ' default
With frmjds
        .Picback(intCount).AutoRedraw = True
        rv = SendMessage(.Picback(intCount).hWnd, WM_PAINT, .Picback(intCount).hdc, 0)
        rv = SendMessage(.Picback(intCount).hWnd, WM_PRINT, .Picback(intCount).hdc, _
        PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
        .Picback(intCount).Picture = .Picback(intCount).Image
        .Picback(intCount).AutoRedraw = False
     End With
     
End Sub

Answer 4

在打印前我利用上述过程（“with frmjds”不要）将picback（intcount）中的内容自己传送，再进行打印的。其它的控件可以打印，richtextbox也可，但是它里面的文字却大不出，不知为何？