创建个Picture1和Picture2。没什么实际用途、仅供加载图片用，不会影响你的程序。
Private Sub Command3_Click()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.Visible = False
Picture2.Visible = False
Picture1.Cls
Picture2.Cls
BitBlt Picture1.hDC, 0, 0, Me.ScaleWidth / Screen.TwipsPerPixelX, Me.ScaleHeight / Screen.TwipsPerPixelY, Me.hDC, 0, 0, vbSrcCopy
'截图
For X = 0 To Picture1.ScaleWidth Step Screen.TwipsPerPixelX
For Y = 0 To Picture1.ScaleHeight Step Screen.TwipsPerPixelY
Picture2.PSet (Picture1.ScaleHeight - Y, X), Picture1.Point(X, Y)
Next Y
Next X
'电脑是宽屏, A4纸是竖直插入的, 所以要旋转
Picture2.Picture = Picture2.Image
'打印
Printer.PaintPicture Picture2.Picture, 0, 0
Printer.EndDoc
End Sub
按下打印，程序窗口截屏，存储下来，打印该存储的图片。
当前窗体名.PrintForm，能否打印在A4纸上，不清楚。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024