Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
ВнизРАБОТА С 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c