Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
Dim acXPos As VariantType = 10
Dim acYPos As VariantType = 5
 
PrintDocument1.PrinterSettings.PrinterName = P5_CB_Druckerauswahl.Text
Dim MyFont14 As New System.Drawing.Font("Arial", 14, Drawing.FontStyle.Bold)
Dim MyFont12 As New System.Drawing.Font("Arial", 12, Drawing.FontStyle.Regular)
Dim MyFont10 As New System.Drawing.Font("Arial", 10, Drawing.FontStyle.Regular)
 
Dim MyDir As New System.IO.DirectoryInfo(DWGFile)
Dim MyFiles As System.IO.FileInfo() = MyDir.GetFiles("*.dwg")
Dim MyFile As System.IO.FileInfo
 
Dim gr As Graphics = e.Graphics
gr.PageUnit = GraphicsUnit.Millimeter
 
'...
'...
Dim i As Integer
 
Do While ParentFileName <> ""
    BasicFileName = ParentFileName.Remove(ParentFileName.Length - 6, 6)
    Dim BildName As String
    BildName = BasicFileName & "_D.wmf"
 
    Dim BlockBild As Bitmap = New Bitmap(ImportPfad & BildName)
    gr.DrawImage(BlockBild, acXPos, acYPos + 30)
 
    i = i + (BlockBild.Height * 2).ToString
 
    e.HasMorePages = (e.PageBounds.Height <= i + 50)
    Page += 1
 
    acYPos = acYPos + 60
    ParentFileName = Microsoft.VisualBasic.Dir()
Loop

mfg.

Dirk