Главная страница
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.019 c
1-43524
Edu
2004-02-16 07:01
2004.03.14
Ввод функции на Delphi


3-43378
tyoma
2004-02-14 22:36
2004.03.14
Оракловый пароль истек


14-43759
Ega23
2004-02-19 14:55
2004.03.14
У кого книжка есть


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


1-43595
Mishenka
2004-02-23 15:17
2004.03.14
CheckBox в StringGrid???