создание отчета в delphi

[Pang]

как сделать бланк документа в delphi и вывести его на печать?
к примеру нужно создать бланк справки с некоторыми полями для заполнения и реквизитами а затем его распечатать....можно подробно, пожалуйста

[Stilet]

Ну например бланк в Ворде, а програмно его наполнять.
Или чем нить типа FastReport...

[Pang]

и как же программно его в ворде заполнять...хотя бы примерно объясни...я вообще не имею представления

[Stilet]

Поиском по форуму - нароеш кучищщу примеров

[SERG1980]

Писал когдато примерно такую прогу. Посмотри может что нибудь полезного найдёшь

procedure TForm1.CreateDocExecute(Sender: TObject);
begin
try
Word:=CreateOleObject('Word.Applica tion');
except
messagebox(0,'Microsoft Word не установлен','Ошибка создания документа',MB_ICONERROR+MB_OK+MB_SY STEMMODAL);
exit;
end;
Word.Visible:=false;
Doc:=Word.Documents.Add;
Word.Selection.Font.Name:=form1.Fon tDialog1.Font.Name;
Word.Selection.Font.Size:= form1.FontDialog1.Font.Size;//выбор шрифта
Word.Selection.Paragraphs.Space15;
Word.Selection.Paragraphs.Alignment :=2;//выравнивание по правому краю
Word.Selection.TypeText(form1.Label edEdit4.Text);
Word.Selection.TypeParagraph;//переход на новую строку
Word.Selection.TypeText(form1.Label edEdit5.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeText(form1.Label edEdit1.Text+' '+form1.LabeledEdit2.Text+' '+form1.LabeledEdit3.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('от '+form1.LabeledEdit9.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeText(form1.Label edEdit6.Text+' '+form1.LabeledEdit7.Text+' '+form1.LabeledEdit8.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.Paragraphs.Alignment :=1;//выравн по центру
Word.Selection.Font.Size:=form1.Fon tDialog1.Font.Size+2;
Word.Selection.Font.Bold:=true;
Word.Selection.TypeText(form1.Label edEdit10.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.Paragraphs.Alignment :=3;// по ширине
Word.Selection.Font.Size:=form1.Fon tDialog1.Font.Size;
Word.Selection.Font.Bold:=false;
Word.Selection.TypeText(form1.Memo1 .Text);
if form1.N11.Checked then
begin
Word.Selection.TypeParagraph;
Word.Selection.Paragraphs.Alignment :=0;
Word.Selection.TypeText(datetostr(n ow));
end;
Word.Visible:=true;
if form1.N12.Checked then //при откр ворда появлятся диалог печати Word.Dialogs.Item(wdDialogFilePrint ).Show(EmptyParam);
end;

[DA-corp.]

А если форма в Excel, как тогда быть?

[Aleksandr]

var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application' );
XLApp.Visible:=true;
XLApp.WorkBooks.Open('D:\blank.xls' );
XLApp.Workbooks[1].WorkSheets[1].Name:='Бланк';
Colum:=XLApp.Workbooks[1].WorkSheets['Бланк'].Columns;
Colum:=XLApp.Workbooks[1].WorkSheets['Бланк'].Rows;
Sheet:=XLApp.Workbooks[1].WorkSheets['Бланк'];
Sheet.Cells[5,9]:=Form1.Edit1.Text;

[chid]

Сообщение от SERG1980

Писал когдато примерно такую прогу. Посмотри может что нибудь полезного найдёшь

procedure TForm1.CreateDocExecute(Sender: TObject);
begin
try
Word:=CreateOleObject('Word.Applica tion');
except
messagebox(0,'Microsoft Word не установлен','Ошибка создания документа',MB_ICONERROR+MB_OK+MB_SY STEMMODAL);
exit;
end;
Word.Visible:=false;
Doc:=Word.Documents.Add;
Word.Selection.Font.Name:=form1.Fon tDialog1.Font.Name;
Word.Selection.Font.Size:= form1.FontDialog1.Font.Size;//выбор шрифта
Word.Selection.Paragraphs.Space15;
Word.Selection.Paragraphs.Alignment :=2;//выравнивание по правому краю
Word.Selection.TypeText(form1.Label edEdit4.Text);
Word.Selection.TypeParagraph;//переход на новую строку
Word.Selection.TypeText(form1.Label edEdit5.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeText(form1.Label edEdit1.Text+' '+form1.LabeledEdit2.Text+' '+form1.LabeledEdit3.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('от '+form1.LabeledEdit9.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeText(form1.Label edEdit6.Text+' '+form1.LabeledEdit7.Text+' '+form1.LabeledEdit8.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.Paragraphs.Alignment :=1;//выравн по центру
Word.Selection.Font.Size:=form1.Fon tDialog1.Font.Size+2;
Word.Selection.Font.Bold:=true;
Word.Selection.TypeText(form1.Label edEdit10.Text);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.Paragraphs.Alignment :=3;// по ширине
Word.Selection.Font.Size:=form1.Fon tDialog1.Font.Size;
Word.Selection.Font.Bold:=false;
Word.Selection.TypeText(form1.Memo1 .Text);
if form1.N11.Checked then
begin
Word.Selection.TypeParagraph;
Word.Selection.Paragraphs.Alignment :=0;
Word.Selection.TypeText(datetostr(n ow));
end;
Word.Visible:=true;
if form1.N12.Checked then //при откр ворда появлятся диалог печати Word.Dialogs.Item(wdDialogFilePrint ).Show(EmptyParam);
end;

Selection.Paragraphs.Alignment:=0;
ОЧЕНЬ! ОЧЕНЬ! ПОМОГЛО!