Вывод на матричный принтер

dummy1

Печать на матричный принтер длинных полей со свойством Stretch.
Просмотр работает нормально, но при выводе на печать некоторые значения не переносятся на другую строку, хотя она (строка) и добавляется, но пустая:

написал:

                            │
                    Clown                    Clown Triggerfish                        <  ок
                    Triggerfi
                    sh
                    Red                      Red Emperor                                <  ок
                    Emperor
...................................
                    Great                    Great Barracuda                          <  ок
                    Barracuda
                    French                  French Grunt                                <  ок
                    Grunt
                    Dog Snapper              Dog Snapper                          <  фигня

                    Nassau                  Nassau Grouper                          <  ок
                    Grouper
                    Bluehead                Bluehead Wrasse                      <  ок
                    Wrasse
                    Yellow Jack              Yellow Jack                              <  фигня

                    Redtail                  Redtail Surfperch                        <  ок
                    Surfperch
                    White Sea                White Sea Bass                      <  ок
                    Bass
                    Rock                    Rock Greenling                          <  ок
                    Greenling
                    Senorita                Senorita                                  <  ок
                    Surf Smelt              Surf Smelt                              <  фигня

                            │

(скопируйте вывод и вставьте в текстовый редактор с шрифтом Courier, чтобы было видней)

Таблица biolife.db из DBDEMOS


Отчет:

написал:

<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" DotMatrixReport="True" EngineOptions.MaxMemSize="10000000" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="оН СЛНКВЮМХЧ" ReportOptions.CreateDate="38287,5976341667" ReportOptions.Description.Text="" ReportOptions.LastChange="38310,3552705324" ScriptLanguage="PascalScript" ScriptText.Text="begin

end." PropData="044C656674023803546F70023808446174617365747301010C3400000020446174615365743D22667278444244617461736574312220446174615365744E616D653D2266727844424461746173657431220000095661726961626C65730100055374796C650100">
  <TfrxDMPPage Name="Page1" PaperWidth="210,819863845505" PaperHeight="296,862308276426" PaperSize="9" LeftMargin="2,53999835958439" RightMargin="2,53999835958439" TopMargin="4,49791376176403" BottomMargin="4,49791376176403" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" FontStyle="0">
    <TfrxReportTitle Name="ReportTitle1" Height="17" Left="0" Top="17" Width="777,6">
      <TfrxDMPMemoView Name="DMPMemo3" Left="172,8" Top="0" Width="96" Height="17" Frame.Typ="2" Memo.Text=""/>
    </TfrxReportTitle>
    <TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="68" Width="777,6" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDataset1" DataSetName="frxDBDataset1" RowCount="0" Stretched="True">
      <TfrxDMPMemoView Name="DMPMemo1" Left="182,4" Top="0" Width="86,4" Height="17" StretchMode="smActualHeight" DataSet="frxDBDataset1" DataSetName="frxDBDataset1" Memo.Text="[frxDBDataset1."Common_Name"]"/>
      <TfrxDMPMemoView Name="DMPMemo2" Left="422,4" Top="0" Width="240" Height="17" DataField="Common_Name" DataSet="frxDBDataset1" DataSetName="frxDBDataset1" Memo.Text="[frxDBDataset1."Common_Name"]"/>
    </TfrxMasterData>
    <TfrxReportSummary Name="ReportSummary1" Height="17" Left="0" Top="119" Width="777,6">
      <TfrxDMPMemoView Name="DMPMemo4" Left="172,8" Top="0" Width="96" Height="17" Frame.Typ="2" Memo.Text=""/>
    </TfrxReportSummary>
  </TfrxDMPPage>
</TfrxReport>

dummy1

не знаю, что за глюк с форумом - я два раза тыкал <просмотр> и раз <отправить>

dummy1

Обнаружил интересную вещь:
Когда печатаю рапорт:
report.prepareReport;
report.print;
глюки эти наблюдаются.
То же происходит, когда делаешь preview, то глюки наблюдаются в той области, которую не видел, а если просмотреть весь отчет, то глюков нет !

AlexTZ

Это поправил, будет в 3.07. 3.07 будет скоро.

dummy1

Нашел лекарство :
frxDMPExport.pas

procedure TfrxDotMatrixExport.DrawMemo .....
.....
begin
  Lines := TStringList.Create;

  Memo.CalcHeight;                                         <- эту строку добавить

Привет земляку (AlexTZ) с Украины