Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub PrintMe()
Dim objT As Object
Me.AutoRedraw = True
For Each objT In Me.Controls
If TypeOf objT Is PictureBox Then
BitBlt Me.hDC, objT.Left, objT.Top, objT.ScaleWidth, objT.ScaleHeight, objT.hDC, 0, 0, vbSrcCopy
Me.Refresh
End If
Next objT
Me.PrintForm
End Sub