' Beispiel: beliebigen Text in PictureBox schreiben
picGrafik.AutoRedraw = True
picGrafik.Print "Test"
Set picGrafik.Picture = picGrafik.Image
picGrafik.AutoRedraw = False

' Grafik drucken
Dim xPos As Long
Dim yPos As Long
 
' Druckbeginn bei 2cm (links) und 1cm (oben):
xPos = 20: yPos = 10
 
' Drucken der Grafik in Orginalgröße
PrintPicture picGrafik.Picture, 20, 10
 
' zusätzlich noch in der Größe 10x12 cm drucken
' Druckposition 11 cm (links), 15 cm (oben)
PrintPicture picGrafik.Picture, 110, 150, _
  100, 120
 
' Druckauftrag beenden
Printer.EndDoc

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de