F-Script

Beispiel

Wichtig Wenn Sie den untenstehenden Beispielcode kopieren und in einem F-Script einfügen, müssen Sie die Zeichenfolge ESC durch den Characterwert 27 ersetzen. Ansonsten wird das Beispiel nicht funktionieren.

# Benötigt zwingend ST-GR.LB
#
/FirmenLogo.Print
# X-/Y-Koordinaten rechen.
«X(XPos=«(3.0 * 300 / 2.54)\N»)»
«X(YPos=«(0.1 * 300 / 2.54)\N»)»
# 
# ESC-Sequenz für PCL-Push Position definieren.
«X(PosXY.Push=ESC*p«X(XPos)»XESC*p«X(YPos)»Y)»
# 
# ESC-Sequenz ausführen (Positions-Merker).
«LIB(Pos.Push|)»«X(PosXY.Push)»
# 
# Logo Datei speichern.
«X(Logo=«SYS(FULLPATH)»ip\img\Logos\Logo.jpg)»
# 
# Dimensionen der Datei und horizontale Positionierung.
# Diese Werte werden in ST-GR.LB verwendet.
# BildHoehe   = Höhe des Bildes/Logos in cm.
# BildBreite = Breite des Bildes/Logos in cm.
# BildPosx   = Linker Einzug (Abstand zum linken Seitenrand) in cm.
«X(BildHoehe=1.5)»«X(BildBreite=1.5)»«X(BildPosx=2.0)»
# 
# 1/2 Zeilen Korrektur (zurück).
«LIB(GR-1/2BF│,ST-GR.LB)»
# 
# Bild Positionierung initialisieren.
«LIB(BILD-POSBE│,ST-GR.LB)»
# 
# Bild platzieren.
# Die Koordinaten (z.B. «X(POSX)») stammen aus der Berechnung in ST-GR.LB
# «X(POSX)»   = Horizontaler Einzug umgerechnet in "dot per inch".
# «X(POSY)»   = Vertikaler Einzug umgerechnet in "dot per inch".
# «X(Breite)» = Bild-Breite umgerechnet in "dot per inch".
# «X(Hoehe)»  = Bild-Höhe umgerechnet in "dot per inch".
# OP = OpaccPicture
# 
ESC%0BOP «X(Logo)»,«X(POSX)»,«X(POSY)\N»,«X(Breite)»,«X(Hoehe)»ESC%0A
# 
# 1/2 Zeilen Korrektur (vorwärts).
«LIB(GR-1/2BF│,ST-GR.LB)»
# 
# Zurück auf ursprüngliche Position springen (gem. Pos.Push).
«LIB(Pos.Pop|)»
/

/Library
Pos.Push|ESC&f0S«X(PushLine=«PAGE(LINE)\N»)»«PAGE(LINE:1)»
Pos.Pop|ESC&f1S«nPAGE(LINE:«X(PushLine)\N»)»
/