Domino 9 und frühere Versionen > ND8: Entwicklung

Erzeugen von PostScript Dateien

<< < (2/2)

m3:
ROTFL. Du solltest lernen, "NEIN" zu sagen.

Ein Hello World ist mit rudimentären LotusScript-Kenntnissen und der Wikipedia schnell geschrieben:
--- Code: --- Dim session As NotesSession
Dim stream As NotesStream

Set session = New NotesSession
Set stream = session.CreateStream
If Not stream.Open({D:\TEMP\x.ps}, "ASCII") Then
Messagebox {D:\TEMP\x.ps},, "Open failed"
Exit Sub
End If

Call stream.WriteText( {%!PS}, EOL_CRLF)
Call stream.WriteText( {/Courier findfont}, EOL_CRLF)
Call stream.WriteText( {20 scalefont}, EOL_CRLF)
Call stream.WriteText( { setfont}, EOL_CRLF)
Call stream.WriteText( {72 500 moveto}, EOL_CRLF)
Call stream.WriteText( {(Hello world!) show}, EOL_CRLF)
Call stream.WriteText( {showpage}, EOL_CRLF)

Call stream.Close
--- Ende Code ---


Aber um die Leküre von PostScript Language Reference, third edition und dem Supplement dazu wirst Du nicht herumkommen, wenn Du keinen PS-Drucker einsetzt.

bikerboy:
Ich bedanke mich schon mal für die guten Beiträge.

@Pram

weitere Anwendungen sind leider nicht zulässig. Mein Aufgabengeber hat zugesagt, dass wir das so können.

bikerboy:
Für interessiert habe ich hier noch eine schöne Seite gefunden.

Link : http://www.tailrecursive.org/postscript/postscript.html

bikerboy:

--- Code: ---%!PS
/cm {29 mul} def
/Times-Roman findfont
20 scalefont
setfont
15 cm 27 cm moveto
(Zusatz) show
2 cm 27 cm moveto
(Robert Kreutzer \n
-keiner-\n
Musteralle5 \n
33xxx Musterstadt) show
2 cm 20 cm moveto
(ErsterFreitextblock \n
Zweiter Freitextblock) show
() show
6 cm 8.5 cm moveto
(UserPassword) show
--- Ende Code ---

So warum macht er jetzt keinen Zeilenumbruch ?


--- Zitat ---Within a text string, the \ (backslash) character is treated as an “escape” for various
purposes, such as including newline characters, unbalanced parentheses, and
the \ character itself in the string. The character immediately following the \ determines
its precise interpretation.
\n line feed (LF)
\r carriage return (CR)
\t horizontal tab
\b backspace
\f form feed
\\ backslash
\( left parenthesis
\) right parenthesis
\ddd character code ddd (octal)
--- Ende Zitat ---

Habe es auch schon mit "\r" versucht aber er macht es nicht warum

Navigation

[0] Themen-Index

[*] Vorherige Sete