Главная страница
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.024 c
3-43308
Pavelius
2004-02-10 11:32
2004.03.14
Мнения о


3-43397
Pavel
2004-02-12 17:22
2004.03.14
Отображение memo в DBGrid


14-43798
PVOzerski
2004-02-17 17:28
2004.03.14
глюк в Netscape 4.8?


7-43913
Ozone
2003-12-18 10:22
2004.03.14
Web-камера


1-43498
h
2004-02-28 23:27
2004.03.14
Вопрос про размещение компонент