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:
Alles anzeigen
Wäre für eine Antwort sehr dankbar.
Liebe Grüße
Editieren
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
- Imports System.IO
- Imports System.Drawing.Printing
- Imports System.Data
- Imports System.Data.OleDb
- Public Class Form1
- Private PrintPageSettings As New PageSettings()
- Private StringToPrint As String
- Private PrintFont As New Font("Arial", 12)
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
- System.EventArgs) Handles MyBase.Load
- With PrintDocument1.DefaultPageSettings.Margins
- .Left = CInt(0.1 / 0.0254)
- .Right = CInt(0.3 / 0.0254)
- .Top = CInt(0 / 0.0254)
- .Bottom = CInt(0.2 / 0.0254)
- End With
- Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
- System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- Dim pr As New Rectangle(0, 0, Me.Width, Me.Height)
- Dim pp = New Bitmap(Me.Width, Me.Height)
- Me.DrawToBitmap(pp, pr)
- PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
- e.Graphics.DrawImage(pp, e.MarginBounds, pr, GraphicsUnit.Pixel)
- End Sub
- Private Sub m_Drucken_Click(ByVal sender As System.Object, ByVal e As _
- System.EventArgs) Handles m_Drucken.Click
- If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
- PrintDocument1.Print()
- End If
- End Sub
Wäre für eine Antwort sehr dankbar.
Liebe Grüße
Editieren