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>'; 
...

 
cockpit-xp/addon/befehlsreferenz/cpprintstr.txt · Zuletzt geändert: 2020/11/28 12:15 (Externe Bearbeitung)