Copying Picturebox to Printer, then printing

[kb244]

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)


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)

[parksie]

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