Inhaltsverzeichnis
cpPrintStr()
Einleitung
mit diesem AddOn-Befehl läßt sich direkt aus einem AddOn heraus ein Textfile drucken. Entweder direkt, also sofort auf den Drucker oder über einem Druckerdialog.
Syntax
Befehl | cpPrintStr(iOption:Integer;sPrintStr:String) | |
---|---|---|
iOption | Auswahl Druck: 0= druckt sofort, 1=Drucker-Dialog | Integer |
sPrintStr | Ausgabe-String | String |
Typ | ||
ab | 3.0.8 build 363 |
Codebeispiel
Beispiel cpPrintStr()
{ Pascal Script Engine } var s: String; begin s := '1.Zeile Text<br>2. Zeile Text<br>'; s := s + '<font size="12" color="$0" face="Verdana">Font Verdana, Color=Schwarz, Size=12<br>'; s := s + '<font size="10" color="$00FF00">Font Color=Grün, Size=10<br>'; s := s + '<font color="$FF0000">Font Color=Blau <br>'; s := s + '<font color="$0000FF">Font Color=Rot <br>'; s := s + '<b>Bold</b> Nicht Bold<br>'; cpPrintStr(0, s); end.
Obiger Code druckt folgenden Text in der Schriftart Verdana, Schwarz, 12Px groß:
Nur ein Leerzeichen angeben zwischen den Attributen bei font und nicht < font oder so.
Muss exakt sein )
Fonts
es werden nur die Fonts unterstützt, die der aktuelle Druckertreiber auch kann. Mit folgendem Befehl kann man sich alle Fonts ausgeben lassen:
... s := '<PrinterFonts>'; cpPrintStr(0, s); ...
Druckt alle Fonts die unterstützt werden
Abstände
Muss man gleich am Anfang mit angeben:
... s := '<style margintext="50" marginleft="150" margintop="150">'; ...
margintext: Abstand zwischen 2 Zeilen
marginleft: Abstand Linker Rand (kein Umbruch für rechter Rand → muss man selbst beachten )
margintop: Abstand Oben, gilt auch für unten
Unterstreichen, Invers
... s := s + '<i><u>Italic und Underline</u></i><br>'; ...