' Create a PrintDialog
        Dim printDlg As New PrintDialog()
 
        ' Create a FlowDocuments
        Dim doc1 As FlowDocument = CreateDocOperationsplan()
        doc1.Name = "Operationsplan"
        doc1.PagePadding = New Thickness(50, 50, 50, 50)
        doc1.FontFamily = New System.Windows.Media.FontFamily("Arial")
        doc1.FontSize = "12"
        doc1.ColumnGap = 0
        doc1.PageHeight = printDlg.PrintableAreaHeight
        doc1.PageWidth = printDlg.PrintableAreaHeight
        doc1.ColumnWidth = printDlg.PrintableAreaHeight
 
        Dim doc2 As FlowDocument = CreateDocRohmaterial()
        doc2.Name = "Rohmaterial"
        doc2.PagePadding = New Thickness(50, 50, 50, 50)
        doc2.FontFamily = New System.Windows.Media.FontFamily("Arial")
        doc2.FontSize = "12"
        doc2.ColumnGap = 0
        doc2.PageHeight = printDlg.PrintableAreaHeight
        doc2.PageWidth = printDlg.PrintableAreaHeight
        doc2.ColumnWidth = printDlg.PrintableAreaHeight
 
        Dim doc3 As FlowDocument = CreateDocStueckliste()
        doc3.Name = "Stueckliste"
        doc3.PagePadding = New Thickness(50, 50, 50, 50)
        doc3.FontFamily = New System.Windows.Media.FontFamily("Arial")
        doc3.FontSize = "12"
        doc3.ColumnGap = 0
        doc3.PageHeight = printDlg.PrintableAreaHeight
        doc3.PageWidth = printDlg.PrintableAreaHeight
        doc3.ColumnWidth = printDlg.PrintableAreaHeight
 
        ' Create IDocumentPaginatorSource from FlowDocument
        Dim idpSource1 As IDocumentPaginatorSource = doc1
        Dim idpSource2 As IDocumentPaginatorSource = doc2
        Dim idpSource3 As IDocumentPaginatorSource = doc3
 
        'Call PrintDocument method to send document to printer
        printDlg.PrintTicket.PageOrientation = _
          Printing.PageOrientation.Landscape
 
        printDlg.ShowDialog()
        printDlg.PrintDocument(idpSource1.DocumentPaginator, "Auftrag " & _
          var_rmnr & " Seite 1")
        printDlg.PrintDocument(idpSource2.DocumentPaginator, "Auftrag " & _
        var_rmnr & " Seite 2")
        printDlg.PrintDocument(idpSource3.DocumentPaginator, "Auftrag " & _
        var_rmnr & " Seite 3")