ROTFL. Du solltest lernen, "NEIN" zu sagen.
Ein Hello World ist mit rudimentären LotusScript-Kenntnissen und der Wikipedia (http://en.wikipedia.org/wiki/PostScript#.22Hello_world.22) schnell geschrieben: 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
Aber um die Leküre von PostScript Language Reference, third edition (http://partners.adobe.com/public/developer/en/ps/PLRM.pdf) und dem Supplement (http://partners.adobe.com/public/developer/en/ps/PS3010and3011.Supplement.pdf) dazu wirst Du nicht herumkommen, wenn Du keinen PS-Drucker einsetzt.
%!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
So warum macht er jetzt keinen Zeilenumbruch ?
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)
Habe es auch schon mit "\r" versucht aber er macht es nicht warum