Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: Ausdruck
Volker
Datum:15.08.02 13:58 Antwortenals Email verschicken (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)



Jörg Sellmeyer
Datum:15.08.02 15:25 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Volker,
Schau mal, ob Dir eine dieser Funktionen weiterhilft:
@AnsiToOem$(S) oder @OemToAnsi$(S)
Gruß
Jörg


Volker
Datum: 19.08.02 20:36 Antwortenals Email verschicken (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




 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
doteu.info: Don´t miss your .eu-Domain