Hallo zusammen,
ich verzweifel gerade an einem PrintDocument welches ich in A3 ausgeben möchte.
Folgender Code soll das Ganze ausgeben:
Er druckt auch auf A3, allerdings vergrößert auf 141%. Ich bekommen also nur einen Teil des Inhaltes , und den vergrößert, ausgedruckt.
Was mache ich hier falsch? Wenn ich als Drucker PDF wähle wird das Dokument richtig auf A3 ausgegeben.
Viele Grüße
Thomas
ich verzweifel gerade an einem PrintDocument welches ich in A3 ausgeben möchte.
Folgender Code soll das Ganze ausgeben:
VB.NET-Quellcode
- Dim frm As New PrintDialog
- With frm
- ' Der Druckvorschau das Dokument zuweisen.
- .Document = _pd
- .Document.DocumentName = "Vorhaben: " & _p.Name
- .Document.DefaultPageSettings.Margins = New _
- System.Drawing.Printing.Margins(78, 78, 100, 78)
- .Document.DefaultPageSettings.Landscape = True
- .Document.DefaultPageSettings.PaperSize = New _
- System.Drawing.Printing.PaperSize("A3", 1169, 1654)
- .Document.DefaultPageSettings.PrinterSettings.DefaultPageSettings.P_
- aperSize = New System.Drawing.Printing.PaperSize("A3", 1169, 1654)
- .Document.PrinterSettings.DefaultPageSettings.PaperSize.RawKind = _
- Printing.PaperKind.A3
- .PrinterSettings.DefaultPageSettings.PaperSize.RawKind = _
- System.Drawing.Printing.PaperKind.A3
- If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
- .Document.DefaultPageSettings.PrinterSettings.PrinterName = _
- .Document.PrinterSettings.PrinterName
- .Document.Print()
- End If
- End With
- frm = Nothing
Er druckt auch auf A3, allerdings vergrößert auf 141%. Ich bekommen also nur einen Teil des Inhaltes , und den vergrößert, ausgedruckt.
Was mache ich hier falsch? Wenn ich als Drucker PDF wähle wird das Dokument richtig auf A3 ausgegeben.
Viele Grüße
Thomas