Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.007 c
3-61912
MakNik
2003-11-27 13:59
2003.12.19
dxDBGrid


1-62157
Павел ....
2003-12-07 02:50
2003.12.19
Сортировка строк по шаблону


14-62222
moreoX
2003-11-26 14:09
2003.12.19
КАК ОПРЕДЕЛИТЬ HANDLE НАЗНАЧЕНИЯ СООБЩЕНИЯ ?!!!


1-62067
Rradion
2003-12-05 16:28
2003.12.19
Как из Списка положить в ЛистБох?


1-62034
Vanoshka
2003-12-06 12:52
2003.12.19
Как пользоваться компонентой Pprintdialog





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский