Dim importpfad As String = "C:\daten"
 
    Dim ParentFileNames As List(Of String) = _
          (IO.Directory.GetFiles(importpfad)).ToList
 
    Dim ParentFileIndex As Integer = -1
 
    Dim WithEvents prntdoc As New Printing.PrintDocument

    Private Sub prntdoc_PrintPage(sender As Object, _
        e As System.Drawing.Printing.PrintPageEventArgs) _
        Handles prntdoc.PrintPage
 
        Dim pageindex As Integer = 0
        Dim parentfilename As String
 
        Do While ParentFileIndex < ParentFileNames.Count - 1 And pageindex <3
            pageindex += 1
            ParentFileIndex += 1
            parentfilename = ParentFileNames(ParentFileIndex)
 
            'Hier dein Code zum Drucken der Bilder/Texte zur akt. Datei
 
        Loop
 
        e.HasMorePages = ParentFileIndex < ParentFileNames.Count - 1
    End Sub