印刷時にエラーが発生する原因を突き止めるには (ID：48299)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

※A4縦の用紙に1部だけ印刷しました。

※StringsPrinterのプロパティは次のとおりです。

object StringsPrinter1: TStringsPrinter
  ColumnCount = 1
  ColumnSpace = 4
  FirstLineNumber = 1
  FirstPageNumber = 1
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = MS ゴシック
  Font.Size = 10
  Font.Style = []
  FooterAlign = haNone
  HeaderAlign = haNone
  LastLine = 0
  LastPage = 999999
  LineNumber = False
  LineRangeOption = roWhole
  MarginBottom = 25
  MarginLeft = 20
  MarginLine = 1
  MarginRight = 20
  MarginTop = 25
  PageOption = poBoth
  RangeOption = roWhole
  StartLine = 1
  StartPage = 1
  WordBreak = True
end

※印刷しようとした文字列は、以下のとおりです。

↓ここから
procedure TMEMain.SetFindResult;
var
  ARow, i, n, SI, EI, ATag, ALineNum, AStart, ExStart, ALen: Integer;
  ATitle, ALineStr: string;
  Editor: TMyEditor;
  Options: TExSearchOptions;
begin
  for n := 0 to TabsCount - 1 do begin
    Editor := GetEditor(n);
    for i := 0 to 6 do Editor.FindResult[i].Clear;
  end;

ExitFindFlag := False;
  Options := [];

if SearchSettings.MatchCase then Include(Options, soMatchCase);
  if SearchSettings.WholeWord then Include(Options, soWholeWord);
  if SearchSettings.RegExp    then Include(Options, soRegexp);

if SearchSettings.AllFiles then begin
    SI := 0;
    EI := TabsCount - 1;
  end else begin
    SI := ActiveTabIndex;
    EI := ActiveTabIndex;
  end;

for n := SI to EI do begin
    Editor := GetEditor(n);
    Editor.ExSearchOptions := Options;
    Editor.FindString := Edit1.Text;
    ARow := 0;
    while (ARow < Editor.ListCount) do begin
      Application.ProcessMessages;
      if ExitFindFlag then break;
      if Editor.SetSearchInfoList(ARow, True) > 0 then begin
        for i := 0 to Editor.FSearchInfoList.Count - 1 do begin
          Application.ProcessMessages;
          if ExitFindFlag then break;
          ATag     := Editor.Tag;
          ATitle   := Editor.Title;
          ALineStr := Editor.LineString(ARow);
          ALineNum := Editor.RowToLines(ARow) + 1;
          AStart   := PSearchInfo(Editor.FSearchInfoList.Items[i]).Start;
          ExStart  := Editor.ExpandTabLength(Copy(ALineStr, 1, AStart - 1)) + 1;
          ALen     := PSearchInfo(Editor.FSearchInfoList.Items[i]).Len;
          Editor.FindResult[0].Add(IntToStr(ATag));
          Editor.FindResult[1].Add(ATitle);
          Editor.FindResult[2].Add(ALineStr);
          Editor.FindResult[3].Add(IntToStr(ALineNum));
          Editor.FindResult[4].Add(IntToStr(AStart));
          Editor.FindResult[5].Add(IntToStr(ExStart));
          Editor.FindResult[6].Add(IntToStr(ALen));
        end;
      end;
      ARow := Editor.GetLineLastRow(ARow) + 1;
    end;
  end;
  UpdateFindResult;
end;
↑ここまで

←解決時は質問者本人がここをチェックしてください。

戻る