Hallo,
ich habe folgendes Problem. Ich muss eine Datei 30.000 mal ausdrucken. Da das in einer Schleife einen reinen Datencrash geben würde, würde ich gerne die ANzahl der Kopien dem Druckauftrag mitgeben, sodass es nur ein Druckauftrag á 30.000 Seiten gibt.
Folgenden Code habe ich bereits, jedoch druckt er mir immer nur 1 Seite aus... hat einer von euch vielleicht eine idee?
Vielen Dank!
ich habe folgendes Problem. Ich muss eine Datei 30.000 mal ausdrucken. Da das in einer Schleife einen reinen Datencrash geben würde, würde ich gerne die ANzahl der Kopien dem Druckauftrag mitgeben, sodass es nur ein Druckauftrag á 30.000 Seiten gibt.
Folgenden Code habe ich bereits, jedoch druckt er mir immer nur 1 Seite aus... hat einer von euch vielleicht eine idee?
Vielen Dank!
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim pd As New PrintDocument Dim settings As New PrinterSettings AddHandler pd.PrintPage, AddressOf PrintDocument1_PrintPage pd.DocumentName = "test" pd.PrinterSettings.PrinterName = "CutePDF Writer" pd.PrinterSettings.Copies = Convert.ToInt32(100) pd.PrinterSettings.DefaultPageSettings.PrinterSettings.Copies = Convert.ToInt32(100) pd.Print() Me.Close() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Dim gr As Graphics = e.Graphics Dim oimage As Image = Image.FromFile("C:\Temp\testbild.bmp") Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top) Dim r As New Rectangle(p.X, p.Y, oimage.Width, oimage.Height) Dim i As Integer e.PageSettings.PrinterSettings.Copies = 100 e.PageSettings.PrinterSettings.DefaultPageSettings.PrinterSettings.Copies = 100 gr.DrawImage(oimage, p) gr.Dispose() End Sub
Comment