Dim PrintDlg As New PrintDialog
 
If PrintDlg.ShowDialog = True Then
  'Kopie des Flowdocuments anlegen, so dass die Ansicht nicht verändert wird.
  Dim FlowD As New FlowDocument
  FlowD = CloneFlow(Me.Document)
 
  With FlowD
    .ColumnGap = 0
    .PageHeight = PrintDlg.PrintableAreaHeight
    .PageWidth = PrintDlg.PrintableAreaWidth
    .ColumnWidth = PrintDlg.PrintableAreaWidth
    .PagePadding = New Thickness(Me._RandLinks, Me._RandOben, Me._RandRechts, _
      Me._RandUnten)
  End With
 
  Dim PageSize As Size = New Size(PrintDlg.PrintableAreaWidth, _
    PrintDlg.PrintableAreaHeight)
  Dim PaginatorSource As IDocumentPaginatorSource = FlowD
  PrintDlg.PrintDocument(PaginatorSource.DocumentPaginator, Me.Title)
End If

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.

Beitrag wurde zuletzt am 29.06.11 um 20:37:56 editiert.