Option Compare Text
 
Imports MySql.Data.MySqlClient
Imports System.Data
Imports System.Windows.Xps
Imports System.Drawing.Printing
Imports System.Drawing
Imports System.Windows.Media
 
Public Class wpfAuftragneufolien
    Dim var_rmnr As String
    Dim var_enddatum As String
    Dim var_maschine As String
    Dim var_mengekg As String
    Dim var_artnr As String
    Dim var_artnrkunde As String
    Dim var_artbez As String
    Dim var_verp1 As String
    Dim var_verp2 As String
 
Private Sub cmd_Suche_Click(ByVal sender As System.Object, ByVal e As _
  System.Windows.RoutedEventArgs) Handles cmd_Suche.Click
    var_rmnr = wert1
    var_enddatum = wert2
    var_maschine = wert3
    var_mengekg = wert4
    var_artnr = wert5
    var_artnrkunde = wert6
    var_artbez = wert7
    var_verp1 = wert8
    var_verp2 = wert9
 
' Create a PrintDialog
        Dim printDlg As New PrintDialog()
 
        ' Create a FlowDocument dynamically.
        Dim doc As FlowDocument = CreateFlowDocument()
        doc.Name = "FlowDoc"
        doc.FontFamily = New System.Windows.Media.FontFamily("Arial")
        doc.FontSize = "12"
 
        ' Create IDocumentPaginatorSource from FlowDocument
 
        Dim idpSource As IDocumentPaginatorSource = doc
        ' Call PrintDocument method to send document to printer
        'Querformat        
        printDlg.PrintTicket.PageOrientation = _
          System.Printing.PageOrientation.Landscape
        printDlg.ShowDialog()
        printDlg.PrintDocument(idpSource.DocumentPaginator, "Auftrag " & _
          var_rmnr)
    End Sub
 
    Private Function CreateFlowDocument() As FlowDocument
        ' Create a FlowDocument
        Dim doc As New FlowDocument()
        ' Create a Section
        Dim sec As New Section()
        ' Create first Paragraph
        Dim p1 As New Paragraph()
        Dim p2 As New Paragraph()
        Dim p3 As New Paragraph()
 
        ' Create and add a new Bold, Italic and Underline
        Dim bld As New Bold()
        Dim italicBld As New Italic()
        Dim underlineItalicBld As New Underline()
 
        bld.Inlines.Add(var_rmnr)
        italicBld.Inlines.Add(New Run("First Paragraph"))
        underlineItalicBld.Inlines.Add(New Run("First Paragraph"))
 
        ' Add Bold, Italic, Underline to Paragraph
        p1.Inlines.Add(underlineItalicBld)
        p2.Inlines.Add(italicBld)
        p3.Inlines.Add(bld)
 
        ' Add Paragraph to Section
        sec.Blocks.Add(p1)
        sec.Blocks.Add(p2)
        sec.Blocks.Add(p3)
 
        ' Add Section to FlowDocument
        doc.Blocks.Add(sec)
        Return doc
    End Function
End Class