Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Печать StringGrid 


Fred   (2001-12-22 06:54) [0]

Как распечатать информацию из StringGrid, разумеется в виде таблицы?



Катерина   (2001-12-22 11:51) [1]

var
Form7: TForm7;
Vx,Vw,Sheet,AR:Variant;
implementation
uses
ComObj,XLConst,WordConst;
{$R *.DFM}

ar
i,j,NP:integer;
Sheets:Variant;
begin
Vx:=CreateOleObject("Excel.Application");
Vx.Visible:=true;
Vx.Workbooks.Add(xlWbatWorkSheet);
Vx.Workbooks[1].Worksheets[1].Name:="Данные";
Sheet:=Vx.Workbooks[1].Sheets.Item["Данные"];
for i:=0 to Stringgrid1.Rowcount-1 do begin
Sheet.Cells[i+1,1]:=stringgrid1.cells[0,i];
Sheet.Cells[1,i+1]:=stringgrid1.cells[i,0];
for j:=0 to Stringgrid1.Colcount-1 do begin
Sheet.Cells[i+1,j+1]:=stringgrid1.cells[j,i];
end;end;Vx.Visible:=false;
Vw:= CreateOleObject("Word.Application");
Vw.Visible := True;
Vw.Documents.Add;
for i:=1 to 6 do Vw.Documents.Item(1).Paragraphs.Add; // Ввели 6 пустых строк
AR:=Vw.Documents.Item(1).Paragraphs.Item(1).Range;
AR.Font.Size:= 22; AR.Font.Bold:= True;
AR.Text:="Оборотно-сальдовая ведомость";
AR:=Vw.Documents.Item(1).Paragraphs.Item(3).Range;
SetFocus;
Sheets:=Vx.Sheets;
Sheets.Item["Данные"].Activate;
Sheets.item["Данные"].UsedRange.Copy;
AR.Paste;
NP := Vw.Documents.Item(1).Paragraphs.Count;


/нужно сохранить название отчета в Edit1.text


shellexecute(application.mainform.handle,pchar("print"),Pchar(edit1.text),nil
,nil,sw_shownormal);



Anatoly Podgoretsky   (2001-12-22 18:57) [2]

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



Fred   (2001-12-23 09:11) [3]

Спасибо, Катерина!
Anatoly Podgoretsky, нельзя ли еще пару слов о QrReport или другом
генераторе отчетов?
Заранее благодарен



Anatoly Podgoretsky   (2001-12-23 23:03) [4]

Практически любой генератор отчетов позволяет печатать произвольные данные.
В QuickReport для этого можно использовать событие OnNeedData.
Сам QuickReport входит в состав Дельфи.
На моем сайте есть две книги по этому продукту на русском языке.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
3-42368           andey                 2001-12-11 19:49  2002.01.14  
Изменение записей таблицы исходя из другой


1-42396           Fred                  2001-12-22 06:54  2002.01.14  
Печать StringGrid


1-42407           Dmitry_O              2001-12-23 19:49  2002.01.14  
изменение языка


14-42545          Dush                  2001-11-13 16:20  2002.01.14  
Проблема с винтом


1-42434           som                   2001-12-24 10:12  2002.01.14  
Графика