-
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.