Question

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

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

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

Answer 1

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

Record<string, number>

在多页上打印图像

1 个答案: