RM报表的打印偏移

自己摸索一下

  RMReport1.SaveReportOptions.AutoLoadSaveSetting := True;
  RMReport1.SaveReportOptions.UseRegistry := False;
  RMReport1.SaveReportOptions.IniFileName := ‘S:\rm.ini‘;//和每个报表文件一一对应

//下面这行FileName 一定要加，而且在LoadFromFile  前面
RMReport1.FileName := ‘d:\mydoc\桌面\测试背景图片.rmf‘;

  RMReport1.LoadFromFile(‘d:\mydoc\桌面\测试背景图片.rmf‘);

    RMReport1.ShowReport;
或者
RMReport1.PrintReport;
  

这样无论是先预览 再点击工具栏的打印按钮

还是 直接打印 ，最后的打印对话框上，都会显示 过去调试的 打印偏移值。

要把 模版导出到 其他电脑，或者 相同电脑的其他文件夹 内容使用。
只要复制2个文件，*.rm 和 *.ini

：    
男 lynu (lynu)    ▲▲▲▲▲    -
盒子活跃会员
2014-4-23 22:18:44
1楼：    这个我看过源码,PrepareReport会将PrintOffset归零的.
如果你不动手改rm源码,可以在
 reportObj.PrepareReport;
  //放在这里才有效
  setoffset;
  reportObj.PrintPreparedReport

procedure TRMReport.LoadFromStream(aStream: TStream);
var
  lPos: Integer;
  lStr: string;
begin
  ConvertNulls := False;
  RMCurReport := Self;
  ErrorFlag := False;
  ErrorMsg := ‘‘;
  FDocMode := rmdmDesigning;
  Clear;
  if aStream.Size < 10 then Exit;

  lStr := RMReadString(aStream);
  if (lStr <> RM_ReportFlagStr + #26) and (lStr <> RM_ReportFlagStr1 + #26) then
  begin
    ErrorFlag := True;
    ErrorMsg := ‘Not ReportMachine Report File!‘;
    Application.MessageBox(PChar(RMLoadStr(SNotRMFFile)), PChar(RMLoadStr(SError)),
      mb_Ok + mb_IconError);
    Pages.Clear;
    Pages.AddReportPage;
    Exit;
  end;

  FReportVersion := RMReadWord(aStream);
  if FReportVersion > RMCurrentVersion then
  begin
    Application.MessageBox(PChar(RMLoadStr(SRMFError)), PChar(RMLoadStr(SError)),
      mb_Ok + mb_IconError);
    Exit;
  end;

  if FReportVersion > 51 then
  begin
    RMReadWord(aStream); // HVersion
    lPos := RMReadInt32(aStream);
  end
  else
    lPos := 0;

  ReportInfo.Title := RMReadString(aStream);
  ReportInfo.Author := RMReadString(aStream);
  ReportInfo.Company := RMReadString(aStream);
  ReportInfo.CopyRight := RMReadString(aStream);
  ReportInfo.Comment := RMReadString(aStream);
  FColorPrint := RMReadBoolean(aStream);
  FmmPrintOffsetTop := RMReadInt32(aStream);
  FmmPrintOffsetLeft := RMReadInt32(aStream);
  FmmPrintOffsetTop := 0;//这里先读取后 又自己清0了
  FmmPrintOffsetLeft := 0;
  FPageCompositeMode := TRMCompositeMode(RMReadByte(aStream));
  PrintBackGroundPicture := RMReadBoolean(aStream);
  DoublePass := RMReadBoolean(aStream);
  PrinterName := RMReadString(aStream);
  if FReportVersion >= 65 then
    RMReadWideMemo(aStream, FScript)
  else
    FScript.Text := RMReadAnsiMemo(aStream);

  if FReportVersion > 51 then
  begin
    FReportFlags := RMReadWord(aStream);
    if FReportVersion >= 57 then
      ConvertNulls := RMReadBoolean(aStream);

    aStream.Position := lPos;
  end
  else
  begin
    FReportFlags := 0;
    AutoSetPageLength := False;
  end;

  try
    Pages.LoadFromStream(FReportVersion, aStream);
  except
    on E: EClassNotFound do
      Application.MessageBox(PChar(‘Opened report contains the following non-plugged components:‘ +
        #13 + E.Message + ‘Use appropriate component from RM component palette‘), PChar(RMLoadStr(SError)),
        mb_Ok + mb_IconError);
  else
  end;

  FSaveReportOptions.LoadReportSetting(Self, ‘‘, False);//读取报表文件外的设置
  if FReportVersion < 64 then
    FPageCompositeMode := rmReportPerReport;
end;