Private Declare Function SendMessage Lib "user32.dll" Alias _
   "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
   ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const PRF_CLIENT = &H4&    ' Draw the window's client area
Private Const PRF_CHILDREN = &H10& ' Draw all visible child
Private Const PRF_OWNED = &H20&    ' Draw all owned windows

Private Sub Command1_Click()
    Dim rv As Long
    Dim ar As Boolean

    With Picture1
        'Save ReDraw value
        ar = .AutoRedraw
  
        'Set persistance
        .AutoRedraw = True

        'Draw controls to picture box
        rv = SendMessage(.hwnd, WM_PAINT, .hDC, 0)
        rv = SendMessage(.hwnd, WM_PRINT, .hDC, PRF_CHILDREN Or PRF_CLIENT Or PRF_OWNED)
    
        'Refresh image to picture property
        .Picture = .Image
    
        'Copy picture to Printer
        .PaintPicture .Picture, .Width, .Height
    
        ' Enable the Lines below to reset the PictureBox painted picture after use
'        'Restore backcolor  (Re-load picture if picture was used)
'        Picture1.Line (0, 0)-(.ScaleWidth, .ScaleHeight), .BackColor, BF
'
'        'Restore ReDraw
'        .AutoRedraw = ar
    End With
    
End Sub