Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Печать в текстовом режиме   Найти похожие ветки 

 
Mihin   (2003-12-25 08:29) [0]

Как при печати в текстов режиме (writeln), задать формат листа (к примеру A3), или менять ориентацию бумаги (книжную/альбомную).
При ипользовании printDialog или (printer.orientation:=polandscape)возникает ошибка "printing in progress" .Помогите разобраться.


 
ALEIIIKA ©   (2003-12-25 09:53) [1]

Может всетаки лучше в графическом.
procedure TForm1.Button2Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
with Printer do
begin
Orientation := poLandscape;
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i * Canvas.TextHeight(Memo1.Lines.Strings[i])), Memo1.Lines.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;


 
tesseract ©   (2003-12-26 09:54) [2]

текстовый режим в дельфях всё равно реализован через графический, так-что его лучше не использовать, хотя он и проще.


 
Benia   (2003-12-26 17:23) [3]

Если тебе печатать на матричнике то смотри команды принтеры там все это есть.



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

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
1-43558
s
2004-02-27 18:25
2004.03.14
Работа с ToolButton


3-43306
jen_bond
2004-02-10 19:29
2004.03.14
Проблемма с выполнением запроса.


1-43630
Budy
2004-03-02 13:29
2004.03.14
Нажатие мышки вне формы


14-43775
тихий вовочка
2004-02-18 23:59
2004.03.14
задачка


4-43946
yorik
2004-01-07 16:11
2004.03.14
Буфер