Autor | Thema: Ausdruck | | Datum:15.08.02 13:58 
(evkkrsaar@gmx.de) | |
Hallo Leute,
ich habe ein Problem beim Ausdruck von Daten.
Mit folgenden Schritten habe ich eine Ausgabe an den Drucker
gesendet, wass auch klappt, bis auf eine Kleinigkeit.
Alle Umlaute werden als sonderbare Zeichen gedruckt, obwohl auf dem Bildschirm alles richtig angezeigt wird.
Kann mir da vielleicht jemand weiterhelfen ??
Hier ein Teil des Listings wie ich es gemacht habe:
Assign #2, "PRN"
Rewrite #2
print #2, ""
print #2, "D-NR Musiktittel (MP3)"
print #2, "-------------------------------------------------------------------------------"
print #2, ""
let zahler%=Gef%
movelisttolist(listbox3&)
whilenot equ(z%,zahler%)
inc z%
inc druck%
if Equ(druck%,60)
print #2, @chr$(12)
print #2, ""
print #2, "D-NR Musiktittel (MP3)"
print #2, "-------------------------------------------------------------------------------"
print #2, ""
druck%=0
endif
print #2, left$(@GetString$(listbox3&,z%-1),79)
wend
print #2, @chr$(12)
close #2
Da ich Anfänger bin kann es natürlich sein, dass dieses Listing sowieso nicht richtig ist, drucken tut es aber.
Nur bei ö, ä, ü usw. da druckt es falsch.
Ich benutze die Profan Version 7.0.
Bin für jede Hilfe dankbar.
Volker
(Volker Ohngemach, Saarbrücken)
|
| | Datum:15.08.02 15:25 
(joerse@gmx.de) | |
Hallo Volker,
Schau mal, ob Dir eine dieser Funktionen weiterhilft:
@AnsiToOem$(S) oder @OemToAnsi$(S)
Gruß
Jörg
|
| | Datum: 19.08.02 20:36 
(evkkrsaar@gmx.de) | |
Hallo Jörg,
das war die Lösung !
Tja, leider blicke ich noch nicht so richtig durch mit Profan. Hab den Befehl total übersehen.
Vielen Dank für Deine Hilfe
Gruss Volker
|
|
|