请问怎样打印PICTUREBOX里面的画面

Question

PaintPicture 就可以
也可在报表中的图象控件的picture属性设为 屏幕中的picture1.picture

Answer 1

' 我课件中的一个代码
Private Sub num_print_Click()
On Error GoTo 300
    
    Dim w As Long, h As Long
    Dim px As Long, py As Long
    
    Set Picture1.Picture = Picture1.Image
    
    Picture1.ScaleMode = vbTwips
    Printer.ScaleMode = vbTwips
    w = Picture1.Width * N \ 100
    h = Picture1.Height * N \ 100
    
    If pos = 0 Then
        px = 0: py = 0
    Else
        px = (Picture1.ScaleWidth - w) / 2 ' 打印在中间
        py = (Picture1.ScaleHeight - h) / 2
    End If
    ' 打印Picture1里面的图形
    Printer.PaintPicture Picture1.Picture, px, py, w, h
    Printer.EndDoc
300
End Sub