Report.Print-Methode (Access)

Die Print-Methode druckt Text in einem Report-Objekt unter Verwendung der aktuellen Farbe und Schriftart.

Syntax

Ausdruck. Drucken (Ausdruck)

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Expr	Erforderlich	String	Die zu druckenden Zeichenfolgenausdrücke. Wenn dieses Argument nicht angegeben wird, wird mit der Print-Methode eine Leerzeile gedruckt. Mehrere Ausdrücke können durch ein Leerzeichen, ein Semikolon (;) oder ein Komma voneinander getrennt werden. Ein Leerzeichen hat dieselbe Wirkung wie ein Semikolon.

Rückgabewert

Nichts

Bemerkungen

Verwenden Sie diese Methode nur in einer Ereignisprozedur oder einem Makro, die durch die OnPrint-Ereigniseigenschaftseinstellung eines Abschnitts angegeben wird.

Die durch das Argument Expr angegebenen Ausdrücke werden auf dem Objekt gedruckt, beginnend an der Position, die durch die Eigenschafteneinstellungen CurrentX und CurrentY angegeben wird.

Beim Drucken des Arguments Expr wird normalerweise ein Wagenrücklauf angefügt, sodass die nächste Print-Methode mit dem Drucken in der nächsten Zeile beginnt. Wenn ein Wagenrücklauf auftritt, wird die CurrentY-Eigenschaftseinstellung um die Höhe des Expr-Arguments erhöht (identisch mit dem von der TextHeight-Methode zurückgegebenen Wert), und die CurrentX-Eigenschaft wird auf 0 festgelegt.

Folgt auf das Argument Ausdr ein Semikolon, wird kein Wagenrücklauf angefügt, und die nächste PrintPrint-Methode druckt in dieselbe Zeile wie die aktuelle PrintPrint-Methode. Die Eigenschaften CurrentXCurrentX und CurrentYCurrentY werden auf den Punkt festgelegt, der sich direkt hinter dem letzten gedruckten Zeichen befindet. Falls das Argument Ausdr selbst Wagenrückläufe enthält, legt jeder derart eingebettete Wagenrücklauf die Eigenschaften CurrentXCurrentX und CurrentYCurrentY wie bei der PrintPrint-Methode ohne Semikolon fest.

Folgt ein Komma auf das Argument Ausdr, werden die Eigenschaften CurrentX und CurrentY auf die nächste Druckzone in derselben Zeile festgelegt.

Wenn das Argument Ausdr in ein Report-Objekt gedruckt wird, ist bei Zeilen, die nicht in die angegebene Position passen, kein Bildlauf möglich. Der Text wird entsprechend den Objektvorgaben abgeschnitten.

Da die PrintPrint-Methode in der Regel mit Zeichen in Proportionalschrift druckt, ist zu bedenken, dass keine Beziehung zwischen der Anzahl der gedruckten Zeichen und der Anzahl der Spalten fester Breite besteht, die diese Zeichen einnehmen. Beispielsweise nimmt ein breiter Buchstabe (wie W) mehr als eine Spalte fester Breite ein, während ein schmaler Buchstabe (wie I) weniger Platz einnimmt. Stellen Sie sicher, dass die tabellarischen Spalten weit genug voneinander entfernt sind, um den text aufzunehmen, den Sie drucken möchten. Alternativ können Sie in einer Schriftart mit fester Schriftbreite (wie Courier) drucken, um sicherzustellen, dass jedes Zeichen nur eine Spalte einnimmt.

Beispiel

Im folgenden Beispiel wird die Print-Methode verwendet, um Text in einem Bericht namens "Report1" anzuzeigen. Mit den Methoden TextWidth und TextHeight wird der Text vertikal und horizontal zentriert.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.