If File.Exists(xui.DefaultFolder, "unterschrift1.png") = True Then' Bild einfügen
Dim Bitmap1 As Bitmap
Bitmap1.Initialize(xui.DefaultFolder, "unterschrift1.png")
Dim r As Rect
If (Bitmap1.Width/GetDeviceLayoutValues.Scale) >500 Then
r.Initialize(310, 751, Bitmap1.Width/2/GetDeviceLayoutValues.Scale+140, Bitmap1.Height/2/GetDeviceLayoutValues.Scale+699) 'von links,von oben,bis rechts,bis unten
Else
r.Initialize(310, 751, Bitmap1.Width/GetDeviceLayoutValues.Scale+140, Bitmap1.Height/GetDeviceLayoutValues.Scale+699) 'von links,von oben,bis rechts,bis unten
End If
Log("Unterschrift-Breite "&(Bitmap1.Width/GetDeviceLayoutValues.Scale))
pdf1.Canvas.DrawBitmap(Bitmap1, Null,r)
End If