Главная страница
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.019 c
3-43392
Yrtimd
2004-02-13 19:40
2004.03.14
Подстановка в EhLib


3-43321
Barmaglot
2004-02-17 12:55
2004.03.14
Проблема с выводом таблиц в QReport......


7-43898
ikivio
2003-12-27 12:05
2004.03.14
Клавиша на клавиатуре


1-43630
Budy
2004-03-02 13:29
2004.03.14
Нажатие мышки вне формы


1-43597
Alex_DM
2004-02-27 09:46
2004.03.14
Исчезающая иконка