Zeichensatz bei QuickReport

[remie]

Hi leute
habe volgendes Problem:
und zwar habe ich einen Quickreportdem Zeichensatz ANSI_CHARSET gegeben.
Das Preview klappt auch soweit sprich er nimmt den richtigen Zeichensatz, aber beim Drucken wechselt er dan zu Arial
woran kann das liegen ?
Habe gehört das ich im System den Zeichensatz auch umstellen soll aber habe keinen schimmer wie das geht vieleicht kennt ja einer das Probelem.

Danke für die Hilfe

[Union]

Zitat:

Zitat von remie

Hi leute
habe volgendes Problem:
und zwar habe ich einen Quickreportdem Zeichensatz ANSI_CHARSET gegeben.
Das Preview klappt auch soweit sprich er nimmt den richtigen Zeichensatz, aber beim Drucken wechselt er dan zu Arial
woran kann das liegen ?
Habe gehört das ich im System den Zeichensatz auch umstellen soll aber habe keinen schimmer wie das geht vieleicht kennt ja einer das Probelem.

Danke für die Hilfe

Der Zeichensatz hat nichts mit der Schriftart zu tun. Du musst im Report oder bei den entsprechenden Objekten des Reports die Eigenschaft Font einstellen. CHARSET wählt die Menge der darstellbaren Zeichen aus (z.b. Russisch, Westeuropäisch usw.).

[marabu]

Die Erklärung von Union ist gut, bis auf die Tatsache, dass CharSet eine property von Font ist. Font.Name heißt das Tier um das es hier geht.

Delphi-Quellcode:

QuickRep.Font.Name := 'Courier New';

Grüße vom marabu

[remie]

hm ok aber welche schrift art hat gleiche Zeichenbreite bei allen Zeichen ?

[Union]

Zitat:

Zitat von remie

hm ok aber welche schrift art hat gleiche Zeichenbreite bei allen Zeichen ?

System und Courier.

[remie]

hm geht immer noch nicht sprich
Im Preview ist es richtig auch mit der richtigen Schriftart wie ich es eingestellt habe
Aber der Ausdruck ist in Arial

[marabu]

Vielleicht machst du irgendwas falsch - bei mir funktioniert es einwandfrei.

marabu

[Union]

Zitat:

Zitat von remie

hm geht immer noch nicht sprich
Im Preview ist es richtig auch mit der richtigen Schriftart wie ich es eingestellt habe
Aber der Ausdruck ist in Arial

Unterstützt Dein Drucker vielleicht kein Courier (wäre zwar ungewöhnlich, aber wer weiss...)

[remie]

Habe mein Problem mal Visuel angehängt ich wüsste nicht was ich falsch gemacht habe,
in der BeforPrint steht auch nix drine

[remie]

glaube ich nicht, da der PDF drucker es ja auch falsch macht

[marabu]

Ich vermute, der Fehler steckt in deinem Code bzw. in der Art wie du den Font gesetzt hast - aber im Kaffeesatzlesen (d.h. ohne deinen Quelltext) war ich noch nie richtig gut.

marabu

[remie]

Mit dem Font mach ich eigentlich garnix das is ja das lustige an der geschichte ich fülle eigentlich nur Meine 2 memos und die Positionen

Delphi-Quellcode:

    Qrmemo1.Lines.Text := '';
    Qrmemo2.Lines.Text := '';
    QrLabel9.Caption  := suchenpreis1.asString;
    QRLabel10.Caption := suchenpreis1.AsString;
    if suchenmahnstufe.Value = 1 then QRLabel11.Caption := FloattoStr(db.preis1)
    else if suchenmahnstufe.Value = 2 then QRLabel11.Caption := FloattoStr((Mahngebuer1+Mahngebuer2))
         else if suchenmahnstufe.Value = 3 then QRLabel11.Caption := FloatToStr((Mahngebuer1+Mahngebuer2+Mahngebuer3))
                else QrLabel11.Caption := '0';
    QRLabel13.Caption := FloattoStr(StrtoFloat(QRLabel9.Caption)+StrToFloat(QRLabel10.Caption)+StrToFloat(QRLabel11.Caption));
    QRLabel9.Caption := Format('%8.2f',[suchenbetrag.Value]);
    QRLabel10.Caption := Format('%8.2f',[StrToFloat(QRLabel10.Caption)]);
    QRLabel11.Caption := Format('%8.2f',[StrToFloat(QRLabel11.Caption)]);
    QRLabel13.Caption := Format('%8.2f',[StrToFloat(QRLabel13.Caption)]);
    QRLabel9.Caption  := Qrlabel9.Caption+' EURO';
    QRLabel10.Caption := Qrlabel10.Caption+' EURO';
    QRLabel11.Caption := Qrlabel11.Caption+' EURO';
    QRLabel13.Caption := QrLabel13.Caption+' EURO';

    QrLabel4.Caption  := Multilang1.GetTextEx('@posten',a);
    QrLabel5.Caption  := Multilang1.GetTextEx('@preis',a);
    Qrlabel6.Caption  := Multilang1.GetTextEx('@ausstaende',a);
    Qrlabel7.Caption  := Multilang1.GetTextEx('@mahngbr',a);
    Qrlabel8.Caption  := Multilang1.GetTextEx('@inkassogbr',a);
    Qrlabel12.Caption := Multilang1.GetTextEx('@summe',a);
    Qrlabel6.Caption  := Qrlabel6.Caption+suchenbuchungsnr.AsString;

// Dan lade ich die Texte für die Memos aus der DB und schreib sie ins Memo das Wars

[remie]

Habe das Problem gefunden, ich muss die schriftart nicht nur im Font einstellen, sondern auch in den Report eigenschaften sprich rk --> Reporteinstellungen
dan funktioniert es ( scheiss QuickReport )

Trotzdem Danke für die Hilfe

[Union]

Zitat:

Zitat von remie

Habe das Problem gefunden, ich muss die schriftart nicht nur im Font einstellen, sondern auch in den Report eigenschaften sprich rk --> Reporteinstellungen
dan funktioniert es ( scheiss QuickReport )

Trotzdem Danke für die Hilfe

Das stimmt nicht ganz... Im Reportobjekt sollte man nur die Standardschriftart einstellen. Dann gibt es aber in fast jedem QR-Objekt (Bands, TQrCustomPrintable) sowohl die Eigenschaft Font als auch ParentFont. Die darf nicht auf True stehen, sonst wird der Font es Elternobjekts übernommen. Das ist kein Bug, sonder ein feature, das Dir erlaubt, Fonts hierarchisch und mit wenig Aufwand zu setzen ;)

[remie]

das habe ich ja überall aus gehabt und es ging trotzdem nicht :gruebel:
Aber egal es geht wieder und der cheff is glücklich das is ja alles was zählt :wink: