Dim Dat1$, Dat2$, YPos&, i&, j&, Breite&, Hoehe&, Z1&, Pos1&, Liste$()
 
  Screen.MousePointer = vbArrowHourglass
  Dat1 = "C:\WMF_Ordner" ' Pfad des Bildordners
  Breite = 200 ' Bildbreite
  Hoehe = 200 ' Bildhöhe
  YPos = 0
  Z1 = -1
  ReDim Liste(0)
  Dat2 = Dir$(Dat1 & "\*_D.wmf")
  Do Until Dat2 = ""
    Z1 = Z1 + 1
    ReDim Preserve Liste(Z1)
    Liste(Z1) = Dat2
    Dat2 = Dir$
  Loop
  Printer.ScaleMode = vbPixels
  Printer.Print " "
  For i = 0 To Z1
    Printer.PaintPicture LoadPicture(Dat1 & "\" & Liste(i)), 0, YPos, Breite, _
      Hoehe
    Pos1 = InStrRev(Liste(i), "_")
    For j = 1 To 3
      Dat2 = Dat1 & "\" & Left$(Liste(i), Pos1) & Choose(j, "S", "F", "P") & _
        ".wmf"
      If Dir$(Dat2) <> "" Then
        Printer.PaintPicture LoadPicture(Dat2), j * Breite, YPos, Breite, Hoehe
      End If
    Next j
    YPos = YPos + Hoehe
    If YPos >= Printer.ScaleHeight Then Printer.NewPage
    DoEvents
  Next i
  Printer.EndDoc
  Screen.MousePointer = vbDefault

Gruss,

Zardoz