To je rađeno u Delphi-u + QuickReport? Da li si mjenjao fontove u windowsima? Ilisi možda mijenjao scale?
Ovo kaže google:
I found a working solution! Patch for QRPrntr.pas:
Code:
procedure TQRPrinter.CreateMetafileCanvas;
function scaleToNativeDeskRes(pVal: Integer): Integer;
var
tTemp: HDC;
begin
tTemp := GetDC(0);
try
Result := Round((pVal * GetDeviceCaps(tTemp, VERTRES)) / GetDeviceCaps(tTemp, DESKTOPVERTRES));
finally
ReleaseDC(0, tTemp);
end;
end;
begin
...
FMetafile.Width := scaleToNativeDeskRes(XSize(PaperWidthValue));
FMetafile.Height := scaleToNativeDeskRes(YSize(PaperLengthValue));
FCanvas := TMetafileCanvas.Create(FMetafile, 0);
FCanvas.Font.PixelsPerInch := MetafileDPI;
...
end;
Šta se tiče exporta u PDF, ako koristiš SynPDF, probaj napraviti slijedeće:
Code:
pdf.UseUniScribe := TRUE;
F