Zitat:

Ich setze gewöhnlich bei der Aufbereitung des Ausdrucks harte Seitenumbrüche, um sicherzustellen, daß bestimmte inhaltliche Blöcke jeweils auf einer Seite gedruckt werden.

Zitat:

Das Windows.Forms zugrundeliegende Graphik-System ist veraltet.

   ''' <remarks>Die Parameter TEXT, SCHRIFT und BREITE entsprechen den 
   ' MEAURESTRING-Parametern text, font und width.
   '''  Auf die Verwendung der restlichen Parameter der Graphics-Funktion wurde 
   ' verzichtet, da diese in der Applikation
   '''  keine Verwendung finden.
   '''  Bei Übergabe eines Leerstring ist das Ergebnis SIZEF(0;0).
   '''  Der Schalter ISPRINTEROUT wird in der Ereignisroutine BEGINPRINT mit 
   ' der Anweisung
   '''  'IsPrinterOut = (e.PrintAction = Printing.PrintAction.PrintToPrinter)' 
   ' gesetzt.
   '''  Beim Start des Druckauftrags werden die Vergleichsfelder SizeDispl und 
   ' SizePrint sowie die Variable SizeFakt
   '''  auf SIZEF(0;0) zurückgesetzt. Dieser Nullwert ist das Kennzeichen, daß 
   ' der in der Variablen SizeFakt
   '''  abgelegte Wert nicht aktuell ist und der Korrekturfaktor für das 
   ' Ausgabemedium "Drucker" neu berechnet werden muß.
   '''  Jeweils der erste Aufruf der Funktion nach Start des Druckauftrages 
   ' führt zur Berechnung des Korrekturfaktors.
   '''  Der so berechnete und in SizeFakt gespeicherte Korrekturfaktor wird für 
   ' den gesamten Druckauftrag verwendet.</remarks>

   ''' <summary>
   ''' Misst die Zeichenfolge TEXT, wenn diese mit der angegebenen SCHRIFT 
   ' dargestellt wird. Bei Vorgabe einer
   '''  verfügbaren BREITE des Darstellungsbereiches ist das Funktionsergebnis 
   ' die erforderliche Bereichshöhe.
   '''  Mit Hilfe der Felder SizeDispl (Ausgabemdium "PrintPreviewControl") und 
   ' SizePrint (Ausgabemedium "Drucker"), die
   '''  als Class-Variable im Datentyp SIZEF definiert sind, wird eine 
   ' abweichende Berechnung der erforderlichen Breite
   '''  und Höhe ermittelt. Das Ausgabemedium "PrintPreviewControl" hat in 
   ' diesem Vergleich das Primat. Der für das
   '''  Ausgabemedium "Drucker" mit der Graphics-Funktion MEASURSTRING 
   ' ermittelte Wert wird mit dem in der Variablen
   '''  hinterlegten Korrekturfaktor angepaßt.
   '''  Die Funktion setzt voraus, daß jeder Ausgabe auf das Medium "Drucker" 
   ' eine Ausgabe auf das Medium
   '''  "PrintPreviewControl" oder "PrintPreviewDialog" vorausgeht.
   ''' </summary>
   ''' <param name="Grafik">Verbindungsglied zum Ereignisargument e.Graphics 
   ' in der Ereignisroutine PRINTDOCUMENT.PRINTPAGE</param>
   ''' <param name="Text">Der im Ausgabemedium darzustellende Text.</param>
   ''' <param name="Schrift">Die FONT-Einstellungen, die bei der 
   ' TEXT-Darstellung Verwendung finden.</param>
   ''' <param name="Breite">Vorgabe einer einzuhaltenden maximalen Breite 
   ' des Darstellungsbereiches in Grafikpunkte.
   '''  Ist die Vorgabe =-1, so wird die Breite den Anforderungen von TEXT und 
   ' FONT in einzeiliger Darstellung berechnet.</param>
   ''' <returns>Beschreibung des Raumes (Höhe und Breite), der zur 
   ' Darstellung von TEXT benötigt wird.</returns>
   Friend Shared Function _MeasureStringKorr(ByVal Grafik As _
     System.Drawing.Graphics, _
                                             ByVal Text As String, _
                                             ByVal Schrift As _
                                             System.Drawing.Font, _
                                             Optional ByVal Breite As Integer = _
                                             -1) As SizeF
      Dim _Font As System.Drawing.Font
      Dim _Ber As SizeF
 
      If (SizeFakt.Width = 0 And SizeFakt.Height = 0) Then              ' Wurde 
      ' der Korrekturfaktor bereits berechnet?
         If Not IsPrinterOut AndAlso _
            (SizeDispl.Width = 0 And SizeDispl.Height = 0) Then            ' ( 
            ' NEIN) Musterwerte für PrintPreviewControl ermittelt?
            _Font = New Font("Arial", 11, FontStyle.Regular)                  ' 
            ' (NEIN)
            SizeDispl = Grafik.MeasureString("GM gm", _Font)                  ' 
            ' Musterwerte für PrintPreviewControl ermitteln
         End If
         If IsPrinterOut AndAlso _
            (SizePrint.Width = 0 And SizePrint.Height = 0) Then            ' ( 
            ' JA) Musterwerte für Drucker ermittelt?
            _Font = New Font("Arial", 11, FontStyle.Regular)                  ' 
            ' (NEIN)
            SizePrint = Grafik.MeasureString("GM gm", _Font)                  ' 
            ' Musterwerte für Drucker ermitteln
         End If
         If (SizeDispl.Width <> 0 And SizeDispl.Height <> 0) AndAlso _
            (SizePrint.Width <> 0 And SizePrint.Height <> 0) Then         _
             ' Musterwerte für die Ausgabemedien ermittelt?
            SizeFakt.Width = ((SizeDispl.Width - SizePrint.Width) / _
            SizePrint.Width) + 1 ' (NEIN) Korrekturfaktoren berechnen
            SizeFakt.Height = ((SizeDispl.Height - SizePrint.Height) / _
            SizePrint.Height) + 1
         End If
      End If
      If IsPrinterOut Then                                              ' 
      ' Ausgabemedium Drucker?
         If (SizeFakt.Width <> 0 And SizeFakt.Height <> 0) Then           _
            ' (JA) Wurde der Korrekturfaktor bereits berechnet?
            If Breite > 0 Then                                               _
             ' (JA) vorgegebene Druckbreite?
               _Ber = Grafik.MeasureString(Text, Schrift, Breite / _
               SizeFakt.Width) ' (JA) 
            Else
               _Ber = Grafik.MeasureString(Text, Schrift)                       _
                  ' (NEIN)
            End If
            Return New SizeF(_Ber.Width * SizeFakt.Width, _Ber.Height * _
              SizeFakt.Height)
         End If
      End If
      If Breite > 0 Then                                                ' 
      ' vorgegebene Druckbreite?
         Return Grafik.MeasureString(Text, Schrift, Breite)                ' ( 
         ' JA)
      Else
         Return Grafik.MeasureString(Text, Schrift)                        ' ( 
         ' NEIN)
      End If
   End Function

   ''' <summary>
   ''' Misst die Zeichenfolge TEXT, wenn diese mit der angegebenen SCHRIFT 
   ' dargestellt wird. Bei Vorgabe einer
   '''  verfügbaren BREITE des Darstellungsbereiches ist das Funktionsergebnis 
   ' die erforderliche Bereichshöhe.
   '''  Mit Hilfe der Felder SizeDispl (Ausgabemdium "PrintPreviewControl") und 
   ' SizePrint (Ausgabemedium "Drucker"), die
   '''  als Class-Variable im Datentyp SIZEF definiert sind, wird eine 
   ' abweichende Berechnung der erforderlichen Breite
   '''  und Höhe ermittelt. Das Ausgabemedium "PrintPreviewControl" hat in 
   ' diesem Vergleich das Primat. Der für das
   '''  Ausgabemedium "Drucker" mit der Graphics-Funktion MEASURSTRING 
   ' ermittelte Wert wird mit dem in der Variablen
   '''  hinterlegten Korrekturfaktor angepaßt.
   '''  Die Funktion setzt voraus, daß jeder Ausgabe auf das Medium "Drucker" 
   ' eine Ausgabe auf das Medium
   '''  "PrintPreviewControl" oder "PrintPreviewDialog" vorausgeht.
   ''' </summary>
   ''' <param name="Grafik">Verbindungsglied zum Ereignisargument e.Graphics 
   ' in der Ereignisroutine PRINTDOCUMENT.PRINTPAGE</param>
   ''' <param name="Text">Der im Ausgabemedium darzustellende Text.</param>
   ''' <param name="Schrift">Die FONT-Einstellungen, die bei der 
   ' TEXT-Darstellung Verwendung finden.</param>
   ''' <param name="Breite">Pflichtangabe eines einzuhaltenden Bereiches in 
   ' Grafikpunkte.</param>
   ''' <returns>Beschreibung des Raumes (Höhe und Breite), der zur 
   ' Darstellung von TEXT benötigt wird.</returns>
   Friend Shared Function _MeasureStringKorr(ByVal Grafik As _
     System.Drawing.Graphics, _
                                             ByVal Text As String, _
                                             ByVal Schrift As _
                                             System.Drawing.Font, _
                                             ByVal Breite As SizeF) As SizeF
      Dim _Font As System.Drawing.Font
      Dim _Ber As SizeF
 
      If (SizeFakt.Width = 0 And SizeFakt.Height = 0) Then              ' Wurde 
      ' der Korrekturfaktor bereits berechnet?
         If Not IsPrinterOut AndAlso _
            (SizeDispl.Width = 0 And SizeDispl.Height = 0) Then            ' ( 
            ' NEIN) Musterwerte für PrintPreviewControl ermittelt?
            _Font = New Font("Arial", 11, FontStyle.Regular)                  ' 
            ' (NEIN)
            SizeDispl = Grafik.MeasureString("GM gm", _Font)                  ' 
            ' Musterwerte für PrintPreviewControl ermitteln
         End If
         If IsPrinterOut AndAlso _
            (SizePrint.Width = 0 And SizePrint.Height = 0) Then            ' ( 
            ' JA) Musterwerte für Drucker ermittelt?
            _Font = New Font("Arial", 11, FontStyle.Regular)                  ' 
            ' (NEIN)
            SizePrint = Grafik.MeasureString("GM gm", _Font)                  ' 
            ' Musterwerte für Drucker ermitteln
         End If
         If (SizeDispl.Width <> 0 And SizeDispl.Height <> 0) AndAlso _
            (SizePrint.Width <> 0 And SizePrint.Height <> 0) Then         _
             ' Musterwerte für die Ausgabemedien ermittelt?
            SizeFakt.Width = ((SizeDispl.Width - SizePrint.Width) / _
            SizePrint.Width) + 1 ' (NEIN) Korrekturfaktoren berechnen
            SizeFakt.Height = ((SizeDispl.Height - SizePrint.Height) / _
            SizePrint.Height) + 1
         End If
      End If
      If IsPrinterOut Then                                              ' 
      ' Ausgabemedium Drucker?
         If (SizeFakt.Width <> 0 And SizeFakt.Height <> 0) Then           _
            ' (JA) Wurde der Korrekturfaktor bereits berechnet?
            If (Breite.Width > 0 Or Breite.Height > 0) Then               _
                ' (JA) vorgegebene Druckbreite?
               _Ber = Grafik.MeasureString(Text, _
                                           Schrift, _
                                           New SizeF(Breite.Width / _
                                           SizeFakt.Width, _
                                                     Breite.Height / _
                                                     SizeFakt.Height)) ' (JA) 
            Else
               _Ber = Grafik.MeasureString(Text, Schrift)                       _
                  ' (NEIN)
            End If
            Return New SizeF(_Ber.Width * SizeFakt.Width, _Ber.Height * _
              SizeFakt.Height)
         End If
      End If
      If (Breite.Width > 0 Or Breite.Height > 0) Then                   ' 
      ' vorgegebene Druckbreite?
         Return Grafik.MeasureString(Text, Schrift, Breite)                ' ( 
         ' JA)
      Else
         Return Grafik.MeasureString(Text, Schrift)                        ' ( 
         ' NEIN)
      End If
   End Function