Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim pd As New PrintDocument
        Dim settings As New PrinterSettings
 
        AddHandler pd.PrintPage, AddressOf PrintDocument1_PrintPage
 
        pd.DocumentName = "test"
        pd.PrinterSettings.PrinterName = "CutePDF Writer"
        pd.PrinterSettings.Copies = Convert.ToInt32(100)
        pd.PrinterSettings.DefaultPageSettings.PrinterSettings.Copies = _
          Convert.ToInt32(100)
 
        pd.Print()
        Me.Close()
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        Dim gr As Graphics = e.Graphics
        Dim oimage As Image = Image.FromFile("C:\Temp\testbild.bmp")
        Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
        Dim r As New Rectangle(p.X, p.Y, oimage.Width, oimage.Height)
        Dim i As Integer
 
        gr.DrawImage(oimage, p)
        gr.Dispose()
    End Sub