In Faxdruck eingebettete Empfängernummer wird nicht mehr erkannt

    Dim myDoc As New System.Drawing.Printing.PrintDocument()
    myDoc.DocumentName = "Dokumentenname"  
    Dim myPageCounter As Long = 0

    'auf myDoc wird jetzt ein handler erzeugt, der die myPrintPage-prozedur steuert.   
    AddHandler myDoc.PrintPage, AddressOf MyPrintPage

    'druck  
    myDoc.Print()

    ...


    Private Sub myPrintPage(ByVal sender As System.Object, _
                            ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim tBrush = New SolidBrush(Color.Black)
        Dim tFont As Font = New Font("Arial", 10)  

        myPageCounter += 1

        e.Graphics.PageUnit = GraphicsUnit.Millimeter

        Select Case myPageCounter
            Case 1:
                'erste seite  
                e.Graphics.DrawString ("Seite 1", tFont, tBrush, 100, 100)  
                e.HasMorePages = True

            Case 2:
                'zweite seite  
                e.Graphics.DrawString ("Seite 2", tFont, tBrush, 100, 100)  
                e.HasMorePages = False

        End Select
        myPageCounter = 0
    End Sub