[wPDF2.75]Text created by eudcedit.exe will be disappear

procedure ConvertToPDF(pQuickRep: TCustomQuickRep; const sFileName: String);
var
  aMeta: TMetaFile;
  PageNum: Integer;
  pQRPrinter: TQRPrinter;
begin
  if(pQuickRep = nil) or (pQuickRep.QRPrinter = nil) then
    Exit;
  pQRPrinter := pQuickRep.QRPrinter;
 
  WPPDFPrinter1.FileName := sFileName;
  try
    WPDF_Start);
    WPPDFPrinter1.CanvasReference := wprefScreen;
    WPPDFPrinter1.BeginDoc;
    for PageNum := 1 to pQRPrinter.PageCount do
    begin
      WPPDFPrinter1.StartPage(pQRPrinter.PaperWidthValue,
                              pQRPrinter.PaperLengthValue,254,254, 0);
      aMeta := pQRPrinter.GetPage(PageNum);
      try
        WPPDFPrinter1.DrawMetafileEx(0,0,0,0,aMeta.Handle,
                                     Screen.PixelsPerInch, Screen.PixelsPerInch );
      finally
        aMeta.Free;
        WPPDFPrinter1.EndPage;
      end;
    end;
    WPPDFPrinter1.EndDoc;
  finally
  end;