Текущий архив: 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.037 c