Hallo,
versuche eine mehrseitige Tiff-Datei zu drucken.
Mit Anleitung von hier bzgl. "mehrseitig Drucken" habe ich schon mal eine Vorschau hinbekommen.
Auf Bild p1 kann man sehen, dass die Vorschau erstellt wird... Jedoch, wird nur die zweite Seite angezeigt! Beim Erstellen, wenn man genau hinschaut, zeichnet er erst die erste Seite und zwack sofort die zweite Seite und die wird dann angezeigt.
Klickt man dann auf das Druckersymbol oben link im Bild p1, wirft er Fehlermeldung - Bild p2 und p3 - aus. Das verwundert mich nun aber, zumal ja doch auch die Vorschau erstellen konnte? Das verstehe ich überhaupt nicht.
Das ich da wo einen Fehler habe bzw. was nicht richtig verstanden habe ... bitte ich euch mir auf die Sprünge zu helfen. Was habe ich da falsch gemacht? Für mich ergibt das keinen Sinn und verstehe es gerade nicht.
Spoiler anzeigen
EDIT:
mache ich es einfacher... dann wird gedruckt ohne Fehlermeldung aber nur Seite 2 v. 2.
Spoiler anzeigen
versuche eine mehrseitige Tiff-Datei zu drucken.
Mit Anleitung von hier bzgl. "mehrseitig Drucken" habe ich schon mal eine Vorschau hinbekommen.
Auf Bild p1 kann man sehen, dass die Vorschau erstellt wird... Jedoch, wird nur die zweite Seite angezeigt! Beim Erstellen, wenn man genau hinschaut, zeichnet er erst die erste Seite und zwack sofort die zweite Seite und die wird dann angezeigt.
Klickt man dann auf das Druckersymbol oben link im Bild p1, wirft er Fehlermeldung - Bild p2 und p3 - aus. Das verwundert mich nun aber, zumal ja doch auch die Vorschau erstellen konnte? Das verstehe ich überhaupt nicht.
Das ich da wo einen Fehler habe bzw. was nicht richtig verstanden habe ... bitte ich euch mir auf die Sprünge zu helfen. Was habe ich da falsch gemacht? Für mich ergibt das keinen Sinn und verstehe es gerade nicht.
VB.NET-Quellcode
- Option Strict On
- ...
- #Region "Drucken"
- Private Sub Tsbtn_Drucken_Dokument_Click(sender As Object, e As EventArgs) Handles TsBtn_Drucken_Dokument.Click
- Using dlg = PrintDialog1 ' Druckerauswahl, Druckereigenschaften, Papierausrichtung
- dlg.Document = Me.PrintDocument1
- If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
- Return
- End If
- End Using
- Using dlg = PrintPreviewDialog1 ' Vorschau und Druck
- dlg.Document = Me.PrintDocument1
- If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
- Return
- End If
- End Using
- End Sub
- Dim _SeitenIndex As Integer = 0
- Private Sub PrintDocument1_BeginPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.BeginPrint
- _SeitenIndex = 1 ' aktuelle Seitennummer
- End Sub
- Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- For i As Integer = 0 To _Images_LoI.Count - 1
- Using img = _Images_LoI(i)
- e.Graphics.DrawImage(img, 20, 20, 800, 1100)
- e.Graphics.DrawString("AUSDRUCK ALS KOPIE | KEIN ORIGINAL", New Font("Aptos", 9), Brushes.Blue, New Point(10, 10))
- End Using
- If _SeitenIndex < (_ImagestotalPages + 1) Then
- e.HasMorePages = True
- _SeitenIndex += 1
- Else
- e.HasMorePages = False
- End If
- Next
- End Sub
- #End Region
EDIT:
mache ich es einfacher... dann wird gedruckt ohne Fehlermeldung aber nur Seite 2 v. 2.
VB.NET-Quellcode
- Private Sub Tsbtn_Drucken_Dokument_Click(sender As Object, e As EventArgs) Handles TsBtn_Drucken_Dokument.Click
- Using dlg = PrintDialog1 ' Druckerauswahl, Druckereigenschaften, Papierausrichtung
- dlg.Document = Me.PrintDocument1
- If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
- Return
- Else
- PrintDocument1.Print()
- End If
- End Using
- End Sub
- Dim _SeitenIndex As Integer = 0
- Private Sub PrintDocument1_BeginPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.BeginPrint
- _SeitenIndex = 1 ' aktuelle Seitennummer
- End Sub
- Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- For i As Integer = 0 To _Images_LoI.Count - 1
- e.Graphics.DrawImage(_Images_LoI(i), 20, 20, 800, 1100 * i)
- e.Graphics.DrawString("AUSDRUCK ALS KOPIE | KEIN ORIGINAL", New Font("Aptos", 9), Brushes.Blue, New Point(10, 10))
- If _SeitenIndex < _ImagestotalPages Then
- e.HasMorePages = True
- _SeitenIndex += 1
- Else
- e.HasMorePages = False
- _SeitenIndex = 1
- End If
- Next
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „michl75“ ()