Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: 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 вся ветка

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

Наверх




Память: 0.49 MB
Время: 0.036 c
4-43950
Mohamed
2004-01-07 00:12
2004.03.14
Pomogite c Stop Watch


14-43792
NAlexey
2004-02-18 15:06
2004.03.14
Pos - скорость.


9-43241
mrz
2003-08-26 14:21
2004.03.14
Прозрачнуя текстура


4-43934
Эдуард
2003-12-26 15:21
2004.03.14
Как изменить высоту Items ов в TTreeView?


1-43453
гость_
2004-02-29 13:03
2004.03.14
при закрытии главной формы