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

Вниз

Печать.   Найти похожие ветки 

← →
Juri   (2006-10-02 23:26) [0]

и так полазил в хелпе нашёл как пользоватся PrinеDialog
пытаюсь напечатать то что находится в мемо
Memo1.PaintTo(Handle, 10, 10);
прям как в справке почти).
но вместо того чтоб напечатать мне то что в мемо находится мне печатает маленький уголок в левом верхнем углу... вот в этом в принцепе и проблема помогите подскажите где туплю?

---

← →
guav ©   (2006-10-02 23:30) [1]

> вот в этом в принцепе и проблема помогите подскажите где
> туплю?

Пиксели на принтере обычно намного меньше мониторных.
Можно их "увеличить", используя функции преобразования координат SetMapMode, SetViewportExtEx и т.п.

---

← →
Juri   (2006-10-02 23:32) [2]

а попобробнее как этим пользоватся? а то в хелпе чтот мало толку вижу...

---

← →
Juri   (2006-10-02 23:34) [3]

может ты понял неправильно.
этот код мне печатает две линии по 2 см каждая которые сопрекасаются в левом верхнем углу...

---

← →
Juri   (2006-10-03 13:39) [4]

что никто не знает?

---

← →
Ketmar ©   (2006-10-03 13:42) [5]

подскажу. масштабы, масштабы...

---

← →
Juri   (2006-10-03 13:59) [6]

ну я уже понял что масштабы... можно поподробнее а лучше кусочком кода или хоть чтонибудь за что уцепится чтоб в хелпе поискать

---

← →
Ketmar ©   (2006-10-03 14:04) [7]

[1] не помогает?

---

← →
Juri   (2006-10-03 14:09) [8]

SetMapMode, SetViewportExtEx  об этом в хелпе ничего не нашёл...

---

← →
Джо ©   (2006-10-03 14:10) [9]

Проще всего сделать вот так:

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
 PrintFile: TextFile;
begin
 AssignPrn (PrintFile);
 Rewrite (PrintFile);
 try
   for I := 0 to Memo1.Lines.Count-1 do
     WriteLn (PrintFile,Memo1.Lines[I])
 finally
   CloseFile (PrintFile)
 end;
end;


---

← →
Ketmar ©   (2006-10-03 14:23) [10]

>[8] Juri 3-Oct-2006, 14:09
>SetMapMode, SetViewportExtEx  об этом в хелпе
>ничего не нашёл...
не тот хэлп. MSDN -- наше всё.

---

← →
MacroDenS ©   (2006-10-03 14:32) [11]

подробнее и с кусочками кодов здесь: http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622422&n=18

---

← →
Juri   (2006-10-04 18:05) [12]

это всё хорошо НО палучается печатать текст тока в одном формате то есть всегда один и тот же размер жирность и тп....
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
PrintFile: TextFile;
begin
AssignPrn (PrintFile);
Rewrite (PrintFile);
try
  for I := 0 to Memo1.Lines.Count-1 do
    WriteLn (PrintFile,Memo1.Lines[I])
finally
  CloseFile (PrintFile)
end;
end;

с помощью этого вапще тока 1 строку можно напечатать

With Printer do Begin  BeginDoc; { Начало печати }
Canvas.Font:=label1.font; { Задали шрифт }  
Canvas.TextOut(100,100,"Это тест принтера !!!"); { Печатаем текст }
EndDoc; { Конец печати }
end;

---

← →
Juri   (2006-10-04 18:34) [13]

если кому интересно использовал этот код
var
MyWord : _ApplicationDisp;
FileName : OleVariant;
begin
 if OpenDialog1.Execute then
 begin
   FileName := OpenDialog1.FileName;
   MyWord := CoWordApplication.Create as
       _ApplicationDisp;
   (MyWord.Documents as DocumentsDisp).Open(FileName,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam);
   (MyWord.ActiveDocument as _DocumentDisp).PrintOut(EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam);
   MyWord.Quit(EmptyParam,EmptyParam,EmptyParam);
 end;
end;

---

← →
Juri   (2006-10-06 14:28) [14]

с этим кодом печать будет производиться только если на компьютере установлен Word может кто знает как напечатать текстовый файл *.rtf не используя Word???

---

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

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

Наверх

Память: 0.49 MB
Время: 0.029 c