Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        e.Graphics.FillRectangle(Brushes.Black, 10, 10, 50, 50)
    End Sub