Ausgabe mit DCPRINT in eine Datei statt auf einen Drucker

[Snoop_Proggy_Prog]

Frage : kann man mit DCPRINT einen Bericht (Report) in eine (text) kompatible Datei ausgeben ? Es muss ja nicht gleich der Drucker sein.
Lassen sich die ?, ?? weiter verwenden ? oder @ DCPRINT Say
Ich bekomm es nicht gebacken , es erscheint immer das
Drucker Menü mit dem Preview (Print und leider nicht save Option,
irgendwie doof...)

[Tom]

Code: Alles auswählen

DCPRINT NAME cPrinter TOFILE myfile.txt

Dann erscheint kein Druckauswahldialog (cPrinter muß ein gültiger Druckername sein) und der Ausdruck wird (allerdings als raw data) in "myfile.txt" gespeichert. Wenn cPrinter z.B. ein reiner TXT-Drucker ist, hast Du die Daten als Text. Es gibt aber auch andere Möglichkeiten, Array- und Tabellendaten mit eXpress++ als Text zu speichern.

[Snoop_Proggy_Prog]

zusammen. Habe allerdings soviele Fragezeichen in meinen
Reports (durchaus ambivalent zu verstehen), daß ich am
Ende der Modifikation sicher Motten im Sakko habe.

[Snoop_Proggy_Prog]

muss man das Printerobjekt definieren ?

[Michael Rudrich]

HI..
ich migriere (boa.. welch wort..) grade eine App, bei der der Programmierer
per Clipper generell immer in ein File mit dem Namen des Users ausgegeben hat und dann per copy an den jeweiligen LPT geschickt hat!
Für die Migration hab ich mir eine kleine Funktion geschrieben, mit der
das echt lecker geht:
Man übergibt die Datei, die Font, die Zeilenlänge und einen Drucker
Vieleicht hilft Dir das.. -- und wie Du siehst, ist DCPRINT ? ein relativ guter Ersatz für alle ? dieser Welt!



FUNCTION MR_PrintFile(cFile, cFont, nLen, cDevice)
Local c:=''
Local n
Local cLine

DEFAULT cDevice := 'PROMPT'
DEFAULT cFont := '10.Courier'
DEFAULT nLen := 120

IF cDevice = 'PROMPT'
DCPRINT ON FONT cFont
elseif cDevice = 'DEFAULT'
DCPRINT ON USEDEFAULT FONT cFont
else
DCPRINT ON NAME cDevice FONT cFont
ENDIF

c := MemoRead(cFile)
n := MlCOunt(c,nLen)
FOR i := 1 TO n
cLine := Memoline(c,nLen,i)
// Keine ESC-Sequenzen
IF substr(cLine,1,1) # chr(27)
DCPRINT ? Memoline(c,nLen,i)
ENDIF
NEXT
DCPRINT OFF

RELEASE ALL
RETURN (NIL)

[Juergen]

Hallo,

Ausgaben mit ?, ?? gehen am einfachsten:

set printer to (cFilename)
set print on
set console off

? "Test 1"
?? "Text 2" ... usw.

set printer to
set print off
set console on

Gruß
Jürgen

[Michael Rudrich]

Hi Juergen!

Es geht nicht um Raw-Printing, sondern um die Möglichkeit per
eXPress die ?/?? zu erschlagen - zumindest dachte ich das!

Gruß
Michl