Druckproblem

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Druckproblem

    Hallo Leute und zwar habe ich ein Problem mit dem Drucken und ich verstehe nicht warum.
    Sobald ich das Drucken bestätigt habe, fragt er mich wo ich die .xps Datei speichern möchte. Wenn ich einen Pfad angebe und bestätige ist zwar alles in Ordnung, aber es passiert nichts, warum?
    Hier mein Code:

    Quellcode

    1. Imports System.IO
    2. Imports System.Drawing.Printing
    3. Imports System.Data
    4. Imports System.Data.OleDb
    5. Public Class Form1
    6. Private PrintPageSettings As New PageSettings()
    7. Private StringToPrint As String
    8. Private PrintFont As New Font("Arial", 12)
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    10. System.EventArgs) Handles MyBase.Load
    11. With PrintDocument1.DefaultPageSettings.Margins
    12. .Left = CInt(0.1 / 0.0254)
    13. .Right = CInt(0.3 / 0.0254)
    14. .Top = CInt(0 / 0.0254)
    15. .Bottom = CInt(0.2 / 0.0254)
    16. End With
    17. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
    18. System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    19. Dim pr As New Rectangle(0, 0, Me.Width, Me.Height)
    20. Dim pp = New Bitmap(Me.Width, Me.Height)
    21. Me.DrawToBitmap(pp, pr)
    22. PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
    23. e.Graphics.DrawImage(pp, e.MarginBounds, pr, GraphicsUnit.Pixel)
    24. End Sub
    25. Private Sub m_Drucken_Click(ByVal sender As System.Object, ByVal e As _
    26. System.EventArgs) Handles m_Drucken.Click
    27. If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    28. PrintDocument1.Print()
    29. End If
    30. End Sub
    Alles anzeigen

    Wäre für eine Antwort sehr dankbar.

    Liebe Grüße
    Editieren