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

dummy1 · November 2004

Печать на матричный принтер длинных полей со свойством 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 · November 2004

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

dummy1 · November 2004

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

AlexTZ · November 2004

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

dummy1 · November 2004

Нашел лекарство

:
frxDMPExport.pas

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

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

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

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

Комментарии

Оставить комментарий