Форум: "Основная";
Поиск по всему сайту: 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.013 c
3-42364           Hermit                2001-12-11 20:25  2002.01.14  
Interbase


1-42472           ASP                   2001-12-25 14:14  2002.01.14  
Как поймать окончание изменения размера формы


1-42415           d()c666               2001-12-27 02:08  2002.01.14  
символ эквивалентный переходу на другую строку...


7-42588           Tune                  2001-09-30 14:33  2002.01.14  
Мастера, подскажите как прочитать заголовок файла, чтобы можно было править отдельные биты?


3-42385           NLO                   2001-12-07 12:26  2002.01.14  
start transaction commit в процедуре InterBase 6