Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Вниз

Как пользоваться компонентой Pprintdialog   Найти похожие ветки 

← →
Vanoshka   (2003-12-06 12:52) [0]

Необходимо распечатать содержимое Memo-поля. Не разу не делал этого, и как назло книги под рукой нет. Подскажите кто знает!

---

← →
Pesh   (2003-12-06 13:51) [1]

ыот эта процедура вроде работает:

procedure TfCDtMain.actPrintExecute(Sender: TObject);
var i:integer;
PrintFile: TextFile;
function iRest:byte;
begin if AM.Lines.Count mod 78 = 0 then result:=0 else result:=1;
end;
begin If not Assigned(AM) then exit;
PD.ToPage:=Trunc(AM.Lines.Count/78)+iRest;
if not PD.Execute then exit;
case PD.PrintRange of
prAllPages: begin
AssignPrn (PrintFile);
Rewrite (PrintFile);
for i:=0 to AM.Lines.Count-1 do Writeln (PrintFile,AM.Lines[i]);
CloseFile (PrintFile);
end;
prPageNums: begin
AssignPrn (PrintFile);
Rewrite (PrintFile);
for i:=(PD.FromPage-1)*79 to (PD.ToPage)*79-1 do Writeln (PrintFile,AM.Lines[i]); //else
CloseFile (PrintFile);
end;
prSelection: begin
If AM.SelLength = 0 then MsgInf ("Чтобы напечатать выделенный фрагмент,"+#13+
"нужно выделить фрагмент текста мышкой!") else
begin
AssignPrn (PrintFile);
Rewrite (PrintFile);
Writeln (PrintFile,AM.SelText);
CloseFile (PrintFile);
end;
end;
end;
end;

Здесь AM - компонет типа TRichEdit, но можно и TMemo
PD - компонет типа TPrintDialog
78 - сколько строк умещается на странице A4
MsgInf - выдаёт сообщение с MB_ICONINFORMATION

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c