Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
ВнизПечать из Memo Найти похожие ветки
← →
Галинка © (2004-07-01 10:37) [0]Да вот вроде и весь вопрос...
Милости прошу...
← →
Ega23 © (2004-07-01 10:39) [1]TPrinter.BeginDoc, TPrinter.EndDoc, F1.
← →
Iconka (2004-07-01 10:40) [2]To Галинка
Прежде чем задавать вопрос посмотри хотябы дэмки и хелп! Или ты хочешь что бы за тебя это делали другие??? >:-<
← →
Anatoly Podgoretsky © (2004-07-01 10:42) [3]
procedure TMainForm.mfPrintClick(Sender: TObject);
var
POutput : TextFile;
Ln : LongInt;
begin
if PrintDialog.Execute then begin // if Print Dialog OK
AssignPrn(POutput); // assign
ReWrite(POutput); // open printer
Printer.Canvas.Font := EditWnd.Font; // assign font to printer
for Ln := 0 to EditWnd.Lines.Count - 1 do begin
WriteLn(POutput,EditWnd.Lines[Ln]); // print one line
end;
CloseFile(POutput); // close printer
end
end; // mfPrintClick
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.036 c