Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
        e.Graphics.DrawImage(PictureBox2.Image, 0, 0)
        e.Graphics.DrawImage(PictureBox3.Image, 0, 0)
        e.Graphics.DrawImage(PictureBox4.Image, 0, 0)
        e.Graphics.DrawImage(PictureBox5.Image, 0, 0)
        e.Graphics.DrawImage(PictureBox6.Image, 0, 0)
    End Sub

        If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
            PrintDocument1.Print()
        End If