Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim pd As New PrintDocument
        Dim ps As New PrintPreviewDialog
        Dim settings As New PrinterSettings
 
        AddHandler pd.PrintPage, AddressOf PrintDocument1_PrintPage
 
        pd.DocumentName = "test"
        settings.PrinterName = "CutePDF Writer"
        settings.Copies = 100
        settings.DefaultPageSettings.PrinterSettings.Copies = 100
 
        pd.PrinterSettings = settings
        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)
 
        e.PageSettings.PrinterSettings.Copies = 100
        gr.DrawImage(oimage, p)
        gr.Dispose()
    End Sub