Jelentések létrehozása a Delphi 7
Szia Delphi-programozók! Van egy probléma: Van egy A4-es formában a szöveget, és az összes asztal. Req. hogy ez a nyomtatvány elektronikus úton és a táblázat cellájába beszúrni adatok ComboBox'ov és nyomtatására. Próbáltam használni TRvNDRWriter komponens (Rave oldal), hogy megmarad. bináris formában jelentést .NDR fájlt később a patak alkatrészek alkalmazásával RvRenderPDF, RvRenderRTF,
RvRenderHTML, RvRenderTEXT átalakítja a fájlt a megfelelő formátumban és. lásd a következő: TXT természetes vonalát táblázatok nem jelenik meg, a szöveg rendben van, hogy .HTML - ugyanaz, mint az RTF (Word) - vporyade asztal, csak a vastagsága a sor nem lehet látni, de az orosz szöveg jelenik meg. a firkálás. PDF - ugyanaz a dolog, csak az, hogy a vonal vastagságát.
KÉRDÉS: Hogyan, hogy a szöveg az orosz .RTF és .PDF megfelelően jelenik meg. Tényleg Th.
Mellékelem a kódot, csak abban az esetben:
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
A Form1.RvNDRWriter1 do kezdődik
Kezdés;
SetFont ( 'Arial', 8);
OriginX: = 0,0;
OriginY: = 0,0;
MoveTo (5,5);
LineTo (5,20);
LineTo (a + 190, b + 160);
PrintXY (a + 20, b + 65 'példa');
Befejezés;
végén;
ReportStream: = TMemoryStream.Create;
megpróbál
ReportStream.LoadFromFile ( 'Primer1');
Form1.RvRenderRTF1.NDRStream: = ReportStream;
Form1.RvRenderRTF1.PrintRender (ReportStream, 'Primer2');
Form1.RvRenderPDF1.NDRStream: = ReportStream;
Form1.RvRenderPDF1.PrintRender (ReportStream, 'Primer2');
végül
ReportStream.Free;
végén;
végén;
By the way, amikor ideköltöztem volt ez a kód ugyanaz szemetet - orosz szöveg lett Firka. ez, hogy mit mond?