Frage zum Drucken und Seitengröße

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von StormySunshine.

    Frage zum Drucken und Seitengröße

    Hallo,

    brauche eure Hilfe. Ich versuche mich zum ersten mal an den Druckeinstellungen, Papiergröße und Querformat.

    Leider jedoch, werden meine Vorgaben völlig außer acht gelassen, bzw. wie in meinem unteren Code wird nichts mehr gedruckt und die Vorgaben außer acht gelassen.

    Habe auch schon bisserl daran rungefummelt, also Position im Code verändert usw.
    Aber irgendwie funzelt das ned.

    Habt Ihr ne Idee, was ich da falsch gemacht habe...?

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Printing
    4. Public Class Druck_Mappenetikett
    6. Private WithEvents PrintDialog1 As New PrintDialog
    7. Private WithEvents PrintDocument1 As New System.Drawing.Printing.PrintDocument
    9. Public Sub DruckBeginnen()
    10. Dim LabeldruckerPaperSize As New PaperSize("Customsize", 2.4409, 3.937) 'Papiergröße 62 x 100 mm
    12. PrintDialog1.Document = PrintDocument1
    13. If PrintDialog1.ShowDialog() = DialogResult.OK Then
    14. PrintDocument1.DefaultPageSettings.PaperSize = LabeldruckerPaperSize
    15. PrintDocument1.DefaultPageSettings.Landscape = True
    16. PrintDocument1.Print()
    17. End If
    18. End Sub
    20. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    21. Dim g As Graphics = e.Graphics
    22. g.PageUnit = GraphicsUnit.Millimeter
    23. g.DrawString("mein testdruck", New Font("Arial", 20, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.Black, New Point(10, 10))
    24. End Sub
    26. End Class

    @michl75:: Ich hab mal den Print-Dialog weggelassen und dafür den PreviewDialog reingenommen.
    Was genau macht er bei Dir nicht?

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. PrintDocument1.DefaultPageSettings.Landscape = True
    4. Me.PrintPreviewDialog1.ShowDialog()
    5. End Sub
    7. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    8. Dim g As Graphics = e.Graphics
    9. g.PageUnit = GraphicsUnit.Millimeter
    10. g.DrawString("mein testdruck", New Font("Arial", 20, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.Black, New Point(10, 10))
    11. End Sub
    12. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ja das im Querformat funktioniert, aber das Papersize hat nicht hin.

    wenn ich es so mache:

    VB.NET-Quellcode

    1. Dim psize As New PaperSize("Label", 2.4409, 3.937) 'Papiergröße 62 x 100 mm
    2. PrintDocument1.DefaultPageSettings.PaperSize = psize
    4. PrintDocument1.DefaultPageSettings.Landscape = True
    6. PrintPreviewDialog1.Document = PrintDocument1
    7. PrintPreviewDialog1.ShowDialog()
    8. End Sub


    kommt Fehler "unbekannter Parameter" ... siehe Bild. Dies liegt wohl an dem Papersize...
    Aber so müsste es dich funktionieren, so habe ich es zumindest aus Google&co usw. heraus verstanden...
    Bilder

    • 0001.PNG

      17,83 kB, 850×147, 195 mal angesehen

Facebook
Telefonspende