Dim pd As New PrintDocument()
pd.DocumentName = "Form Print"
AddHandler pd.PrintPage, AddressOf Print
pd.Print()

Sub Print(ByVal sender As Object, ByVal e As PrintPageEventArgs)
   Dim bmp As New Bitmap(Me.Width, Me.Height)
   Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
   e.Graphics.DrawImageUnscaled(bmp, e.PageSettings.Bounds)
   e.HasMorePages = False
   bmp.Dispose()
End Sub

Ralf