So far I have put a PrintDialog control and PrintDocument Control on the
form. The user can select which printer to use, etc with the
PrintDialog. One of the properties is the PrintDocument object. After
that, I'm lost.

Examples I've seen so far are extremely complicated. Can someone please
direct me to a tutorial or example of using this control to do some
simple formatted text?

Or maybe a snippet of code here? Just to print "Hello World"?

Thanks.

Regards,
Herfried K. Wagner

try this:

    Private Sub print()
        Dim loPrintProcess As New System.Diagnostics.Process()
        Dim loStartInfo As New System.Diagnostics.ProcessStartInfo()

        '# File to print
        loStartInfo.FileName = "c:\adb.txt"

        '# What to do with the file
        loStartInfo.Verb = "print"

        '# Let's print
        loPrintProcess = Process.Start(loStartInfo)
    End Sub

and look into the docs for further information on Process.

Bye

  Brodehead

<sigh>

;-)

Regards,
Herfried K. Wagner

Option Strict On

Public Class printingSample
 Inherits System.Windows.Forms.Form

' Windows Form Designer generated code

#Region "Variables"
 Private printWholeForm As Boolean = False
 Private memImage As Bitmap
#End Region

#Region "Base Events"
 Private Sub print_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
  Handles printGraphic.Click, printForm.Click

  Dim buttonID As Button = CType(sender, Button)

  If buttonID.Name = "printForm" Then
   printWholeForm = True
   Call BuildFormImage()
  End If
  PrintDialog1.Document = PrintDocument1
  If PrintDialog1.ShowDialog = DialogResult.OK Then
   PrintDocument1.Print()
  End If
 End Sub

 Private Sub printPreview_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles printPreviewGraphics.Click,
printPreviewForm.Click

  Dim buttonID As Button = CType(sender, Button)
  Dim PrintPreviewID As New PrintPreviewDialog()

  PrintPreviewID.Document = PrintDocument1
  If buttonID.Name = "printPreviewForm" Then
   printWholeForm = True
   Call BuildFormImage()
  End If
  If PrintPreviewID.ShowDialog = DialogResult.OK Then
   PrintDocument1.Print()
  End If
 End Sub

 Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles
PrintDocument1.PrintPage

  Dim formGraphics As Graphics = e.Graphics

  If printWholeForm = False Then
   ' Build each part of the picture
   With formGraphics
    .DrawString(Label1.Text, Label1.Font, New SolidBrush(Label1.ForeColor),
50, 50)
    .DrawImage(PictureBox1.Image, 100, 100)
    .Dispose()
   End With
  Else
   formGraphics.DrawImage(memImage, 0, 0)
   memImage.Dispose()
   formGraphics.Dispose()
   printWholeForm = False
  End If
  e.HasMorePages = False
 End Sub
#End Region

#Region "Implementation Methods"
 Private Sub BuildFormImage()

  ' Thanks to Lion Shi, MCSE, MCSD, Microsoft Support Engineer, for the
newsgroup post
  ' that showed how to do this

  Dim graphicID As Graphics = Me.CreateGraphics
  Dim sizeID As Size = Me.Size
  Const SRCCOPY As Integer = &HCC0020

  memImage = New Bitmap(sizeID.Width, sizeID.Height, graphicID)
  Dim memGraphic As Graphics = graphicID.FromImage(memImage)
  Dim deviceContext1 As IntPtr = graphicID.GetHdc
  Dim deviceContext2 As IntPtr = memGraphic.GetHdc

  BitBlt(deviceContext2, 0, 0, Me.ClientRectangle.Width,
Me.ClientRectangle.Height, _
   deviceContext1, 0, 0, SRCCOPY)
  graphicID.ReleaseHdc(deviceContext1)
  memGraphic.ReleaseHdc(deviceContext2)
 End Sub

 Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As
IntPtr, ByVal _
  nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal
nHeight _
  As Integer, ByVal hdcSrc As _
  IntPtr, ByVal nXSrc _As Integer, _
  ByVal nYSrc As Integer, ByVal _
  dwRop _As System.Int32) As Boolean
#End Region
End Class

Hope this is helpful.

--
Jeff Rhodes
Author of "VBTrain.Net: Creating Computer and Web Based Training with Visual
Basic .NET"
www.vbtrain.net
Check out our Windows Forms and ASP.NET Controls