With Picture1
    ' Wichtig!
    .AutoRedraw = True
 
    ' Maßeinheit Millimeter
    .ScaleMode = vbMillimeters
    .BackColor = vbWhite
 
    ' Höhe und Breite festlegen (abzgl. 15mm Rand)
    .Width = Me.ScaleX(190, vbMillimeters, Me.ScaleMode)
    .Height = Me.ScaleY(267, vbMillimeters, Me.ScaleMode)
 
    ' Position für 1. Textausgabe
    .CurrentX = 0
    .CurrentY = 0
    .Font.Size = 14
    .Font.Bold = True
    Picture1.Print "Auftragsliste"
 
    ' Position für 2. Textausgabe (unterer Seitenrand)
    .Font.Size = 10
    .Font.Bold = False
    .CurrentY = 250
    .CurrentX = 0
    Picture1.Print "Ende der Seite"
 
    ' Bild der Picture-Eigenschaft zuweisen
    .Picture = .Image
    .AutoRedraw = False
 
    ' Drucker Maßeinheit Millimeter
    Printer.ScaleMode = vbMillimeters
 
    ' Bild an Position 15,15 ausdrucken=Ränder 1.5 cm
    Printer.PaintPicture .Picture, 15, 15
    Printer.EndDoc
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de