Copying Picturebox to Printer, then printing

at the moment I am trying to get the content of the picture box into the Printer's Device Content and print it off.

The problem is tho, is that the BitBlt isnt working , throwing in some debuging it always returns a zero (error)

Code:

---

Public Sub PrintMe()
#Const De_bug = True

Dim lres As Long

lres = BitBlt(Printer.hDC, _
              0, 0, _
              InnerBox.ScaleWidth, _
              InnerBox.ScaleHeight, _
              InnerBox.hDC, _
              0, _
              0, _
              &HCC0020 _
            )
Printer.EndDoc

#If De_bug Then
MsgBox lres
#End If


End Sub

---

oh also scalemode for all the controls are set to 3(pixel)

For the printer it's probably best to use Printer.PaintPicture, since speed isn't so much of an issue.