<code>  Dim xPos As Long
  Dim yPos As Long
 
  <font color=green>' Druckbeginn bei:</font>
  xPos = 20
  yPos = 10
 
  With Printer
    .ScaleMode = 6
 
    <font color=green>' Bild 1 drucken</font>
    With Picture1
      Printer.PaintPicture .Picture, xPos, yPos, _
        121, 121
    End With
 
    <font color=green>' Bild 2 drucken
    ' Position Unterkante Bild1 + 20mm</font>
    yPos = yPos + 121 + 20
    With Picture2
      Printer.PaintPicture .Picture, xPos, yPos, _
        150, 118
    End With
 
    .EndDoc
  End With</code>