'fuer die Image in der Ueberschrift Kopfzeile
            Dim img As XImage = pbx_Artikel_Bild.Image
            Dim img_scale_x As Double = 3
            Dim img_scale_y As Double = 3
 
            Dim img_rand_l As Double = 20 / img_scale_x
            Dim img_rand_o As Double = 20 / img_scale_y
 
            Dim img_breite As Double = img.PixelWidth / img_scale_x
            Dim img_hoehe As Double = img.PixelHeight / img_scale_y
 
            Dim img_pos_x As Double = Druckbereich.Left - img_rand_l
            Dim img_pos_y As Double = Druckbereich.Top - img_rand_o
 
 
 
            Dim Image As Bitmap = GetZoomImage(pbx_Artikel_Bild.Image, New Size( _
              100, 200), Drawing2D.InterpolationMode.HighQualityBicubic)
            gfx.DrawImage(Image, New Rectangle(10, 10, Image.Width, _
            Image.Height))
 
            'Titel:
            Dim TitelHoehe As Double = gfx.MeasureString("MODELLPFLEGEPUNT", _
              FontTitel).Height
            Dim TitelBox = New XRect(Druckbereich.Left, Druckbereich.Top, _
            Druckbereich.Width, TitelHoehe)
 
            Dim sf As New XStringFormat
            sf.Alignment = XStringAlignment.Center
            sf.LineAlignment = XLineAlignment.Far
 
            gfx.DrawString("Inventar-Datenblatt", FontTitel, XBrushes.Black, _
              TitelBox, sf)
 
            sf.Alignment = XStringAlignment.Far
            sf.LineAlignment = XLineAlignment.Far
            gfx.DrawString(String.Concat("Seite: ", document.PageCount), _
              FontSeite, XBrushes.Black, TitelBox, sf)

Mit freundlichen Grüßen
-Franky-