.
.
.
e.graphics.PageUnit = GraphicsUnit.Millimeter
Dim PageMid as Integer = (e.PageSettings.PaperSize.width * 0.254) / 2
dim rectWi as integer = 80 '80mm breite
 
e.Graphics.DrawRectangle(new Pen(Color.Black, 0.5F), _
                         New Rectangle(PageMid - (rectWi / 2), 20, _
                                         rectWi, 50))  
.
.
.