Главная страница
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.03 c
3-43306
jen_bond
2004-02-10 19:29
2004.03.14
Проблемма с выполнением запроса.


1-43674
Pul
2004-03-01 19:02
2004.03.14
кнопку приложения


11-43420
savva
2003-06-27 11:07
2004.03.14
Toolbar - расположение кнопок


3-43282
NorthMan
2004-02-12 16:02
2004.03.14
В чем дело, почему BDE выдает ошибку


8-43705
r00t
2003-11-13 12:31
2004.03.14
Анализ голоса...