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
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
begin
RLReport1.SaveToFile('test.pdf');
RLReport1.Prepare;
RLPDFFilter1.ExecuteDialog;
end;
Super !
Dziękuję serdecznie Pawle !
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:
A tak w PDFie:
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)?