XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei drucken (*.DOC, *.RTF, *.TXT)
-----------------------------------------------------------------
*.DOC, *.RTF, *.TXT mit Profan drucken   (P)Fairware, Freeware...
Der undokumentierte /p Parameter in Write oder Wordpad ermöglicht
den direkten Ausdruck des gewählten Dokuments. Es wird Write bzw.
Wordpad im Abbildungsmodus 0 gestartet das Dokument gedruckt und
Write bzw. Wordpad geschlossen.
Es ist lediglich der Druckdialog zu sehen.
(c)1998 Richard Maurukas
-----------------------------------------------------------------
cls
declare PRFILE$
let PRFILE$ = @LoadFile$(Datei drucken:,*.*)

ifnot @equ$(PRFILE$,)

    let PRfile$=add$(add$(Write.exe ,PRFILE$), /p)
    winexecwait(PRFILE$,0)

endif

Print Prfile$
Print fertig
waitkey