mdmAntrag, KI, etc.

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -609,7 +609,7 @@ Public Class cAllgemein
             Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New FileStream(TargetFile, System.IO.FileMode.Create))
             PdfCopyProvider.SetFullCompression()
             srcDoc.Open()
-            For p As Integer = pageStart To pagesEnd
+            For p As Integer = pageStart To (pageStart + pagesEnd) - 1
                 If p > Reader.NumberOfPages Then
                     MsgBox("Seitenanzahl überschritten!")
                     srcDoc.Close() : Reader.Close()