Public Sub PrintPage(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs)
 
'hier werden texte in e.graphics geschrieben
 
Dim g As Graphics = Graphics.FromImage(b)
Dim e1 As Graphics = e.Graphics
Dim bHdc As IntPtr = g.GetHdc
Dim eHdc As IntPtr = e1.GetHdc
BitBlt(eHdc, picture.X, picture.Y, picture.Width, picture.Height, bHdc, 0, 0, _
  SRCCOPY)
g.ReleaseHdc(bHdc)
e1.ReleaseHdc(eHdc)
End Sub

e.Graphics.DrawImage(b, page.Left, top, b.Width, b.Height)