Скачать: CL | DM;

РАБОТА С StringGrid?????   Найти похожие ветки 

← →
Александр1   (2004-02-27 16:45) [0]

Здравствуйте уважаемые мастера!!!!
Помогите пожалуйста!
Как распечатать на принтере содержимое StringGrid?????

---

← →
Dmitriy O. ©   (2004-02-27 16:46) [1]

используй генератор отчетов Qreport

---

← →
Александр1   (2004-02-27 16:48) [2]

Ага ещё бы знать как им пользоваться и чё это вообще такое!
Если не труно напеши небольшой примерчик
Dmitriy O.

---

← →
Тимохов ©   (2004-02-27 16:55) [3]

Печатай сам через Printer.Canvas.

---

← →
MBo ©   (2004-02-27 16:57) [4]

пример есть тут:
http://delphibase.endimus.com/

---

← →
Александр1   (2004-02-27 16:58) [5]

Если в этом примере заменить Memo1 на StringGrid1 то ничего работать не будет!

procedure TForm1.BitBtn5Click(Sender: TObject);
var Stroka:System.Text;
i:integer;
begin
if Memo1.Text="" then rez:=MessageDlg("Нет выведенных данных для вывода на печать",mtError,[mbOK],0);
if Memo1.Text<>"" then begin
if PrintDialog1.Execute then begin
AssignPrn(stroka);
Rewrite(Stroka);
Printer.Canvas.Font:=Memo1.Font;
for i:=0 to Memo1.Lines.Count-1 do Writeln(Stroka, Memo1.Lines[i]);
System.CloseFile(Stroka);
end;
end;
end;

---

← →
Александр1   (2004-02-27 18:11) [6]

MBo - А в каком разделе не помнишь??????

---

← →
TButton ©   (2004-02-27 18:15) [7]

у принтера очень интересный канвас. с ним трудно работать не зная dpi принтера.

---

← →
Тимохов ©   (2004-02-27 18:16) [8]

> у принтера очень интересный канвас. с ним трудно работать
> не зная dpi принтера.

так узнайте

---

← →
TButton ©   (2004-02-27 18:19) [9]

:)
ввиду непонимания моего тонкого намека, спрашиваю прямо - как?

---

← →
Тимохов ©   (2004-02-27 18:22) [10]

кусок нашего проекта, разбирайтесь...

fDpiX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
fDpiY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
fMarginL := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
fMarginT := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
fPrintW := GetDeviceCaps(Printer.Handle, HORZRES);
fPrintH := GetDeviceCaps(Printer.Handle, VERTRES);
fPhysW := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH);
fMarginR := fPhysW - fPrintW - fMarginL;
fPhysH := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT);
fMarginB := fPhysH - fPrintH - fMarginT;

---

← →
TButton ©   (2004-02-27 18:27) [11]

сенкс

---

← →
Александр1   (2004-02-27 20:01) [12]

Все спасибо я нашёл код печати!!!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c