在多页上打印图像

如何解决在多页上打印图像

我在一个文件夹中有条码图像，我想像下图那样打印它们。但问题是我无法让图像的其余部分进入下一页。

在这种情况下，我有 22 张图片，但纸张只适合 20 到 21 张（最后一张图片被边缘剪掉了）。我的问题是，如果下一页有很多图片，我该如何制作剩下的 20 和 20 多岁？

barcode images

Private Sub PrintDocument1_PrintPage(sender As Object,e As PrintPageEventArgs) Handles PrintDocument1.PrintPage

    Dim extensions As New List(Of String)
    extensions.Add("*.jpg")
    ' And so on,until all are in...

    Dim fileCount As Integer
    For i As Integer = 0 To extensions.Count - 1
        fileCount += Directory.GetFiles(Application.StartupPath & "\temp\",extensions(i),SearchOption.AllDirectories).Length
    Next

    Dim imgPictures(fileCount) As Image

    For i As Integer = 1 To fileCount
        imgPictures(i) = Bitmap.FromFile(Application.StartupPath & "\temp\" & i & ".jpg")
        e.Graphics.DrawImage(imgPictures(i),50,50 * i)
        If i = 20 Then
            e.HasMorePages = True
        ElseIf i = fileCount Then
            e.HasMorePages = False
        End If
    Next
End Sub

解决方法

经过几个小时的尝试，终于成功了，大声喊jmcilhinney，大有帮助

Record<string,number>