Eksport raportu do PDF za pomocą Fortes4lazarus

0

Witam.

Czy mógłby mnie któryś z Panów naprowadzić jak w fortes4lazarus zrobić eksport raportu do PDF'a ?

Z góry dziękuję za pomoc.

Pozdrawiam

1
begin
  RLReport1.SaveToFile('test.pdf');
  RLReport1.Prepare;
  RLPDFFilter1.ExecuteDialog;
end;
0

Super !
Dziękuję serdecznie Pawle !

0

Jeszcze jedno pytanie....
Na podglądzie (w RLReport) wszystko wygląda ok.
Natomiast w PDFie nie ma polskich znaków, nie widoczne są wiersze z pogrubioną czcionką oraz zmieniło się wyrównanie w "komórce".
Tak to wygląda na poglądzie:
PODGLĄD.jpg

A tak w PDFie:
WYDRUK.jpg

Wydruk tworze w ten sposób:

var
  labels: array[0..100, 0..2] of TRLLabel;
begin
      FOR i:=0 TO 10 DO
            begin
                      labels[z,0] := TRLLabel.Create(Self);
          IF i=5 THEN labels[z,0].Font.Bold:=true;
                      labels[z,0].AutoSize:=false;
                      labels[z,0].Left:=40;
                      labels[z,0].Width:=350;
                      labels[z,0].Top:=20*z;
                      labels[z,0].Height:=21;
                      labels[z,0].Borders.DrawBottom:=true;
                      labels[z,0].Borders.DrawTop:=true;
                      labels[z,0].Borders.DrawLeft:=true;
                      labels[z,0].Borders.DrawRight:=true;
                      labels[z,0].Caption:=' TEST POLSKICH ZNAKÓW ŁĄĆŃłąćń';
                      labels[z,0].Parent:=WYDRUK.RLReport1;

                      labels[z,1] := TRLLabel.Create(Self);
          IF i=5 THEN labels[z,1].Font.Bold:=true;
                      labels[z,1].AutoSize:=false;
                      labels[z,1].Left:= labels[z,0].Left+labels[z,0].Width-1;
                      labels[z,1].Width:=labels[z,0].Width;
                      labels[z,1].Top:=labels[z,0].Top;
                      labels[z,1].Height:=21;
                      labels[z,1].Borders.DrawBottom:=true;
                      labels[z,1].Borders.DrawTop:=true;
                      labels[z,1].Borders.DrawLeft:=true;
                      labels[z,1].Borders.DrawRight:=true;
                      labels[z,1].Caption:=' TEST POLSKICH ZNAKÓW źżęóŹŻĘÓ';
                      labels[z,1].Parent:=WYDRUK.RLReport1;

                      inc(z);
            end;

     WYDRUK.RLReport1.SaveToFile('D:\test.pdf');
     WYDRUK.RLReport1.Prepare;
     WYDRUK.RLPDFFilter1.ExecuteDialog;

     WYDRUK.ShowModal;   
end;
 

Jak uniknąć tych zmian (zależy mi głownie na polskich znakach)?

1 użytkowników online, w tym zalogowanych: 0, gości: 1