Печать из делфи

[VaheN]

Как распечатать документ из делфи с подключенной базой Acces???

[eval]

Точно также как и с отключенной базой Acces.

[VaheN]

Да.Чет не могу разобраться.Как это сделать=(

[raxp]

Delphi-World/

[Stilet]

Тебе репорт нужно сделать на основе данных из базы Акцесса?

[VaheN]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, ToolWin, Menus, ExtCtrls, DBCtrls,
  StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    PrintDialog1: TPrintDialog;
    procedure N4Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
MessageDlg('Óäà÷íîãî äíÿ', mtInformation, [mbOk], 0);
close;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
MessageDlg('Çàïèñü Ñîõðàíåíà', mtInformation, [mbOk], 0);
if DataModule2.ADOTable1.Modified then
DataModule2.ADOTable1.Post;

end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
MessageDlg('Çàïèñü äîáàâëåíà', mtInformation, [mbOk], 0);
DataModule2.ADOTable1.Insert;
Form3.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);
begin
DataModule2.ADOTable1.Insert;
Form3.ShowModal;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
Form3.ShowModal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Form3.ShowModal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
DataModule2.ADOTable1.IndexFieldNames:='Êîä';
end;

procedure TForm1.N11Click(Sender: TObject);
begin
DataModule2.ADOTable1.IndexFieldNames:='Íàèìåíîâàíèå';
end;


procedure TForm1.N12Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
MessageDlg('Çàïèñü óäàëåíà', mtInformation, [mbOk], 0);
DataModule2.ADOTable1.Delete;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
DataModule2.ADOTable1.Filtered:=true
else
DataModule2.ADOTable1.Filtered:=false;
DataModule2.ADOTable1.Filter:='Êîä='''+Edit1.Text+'''';

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if Length(Edit2.Text)>0 then
DataModule2.ADOTable1.Filtered:=true
else
DataModule2.ADOTable1.Filtered:=false;
DataModule2.ADOTable1.Filter:='Íàèìåíîâàíèå='''+Edit2.Text+'''';
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
print;
end;

end.

Вот что нужно, чтобы на кнопку печать.Выходила таблица в Worde или Openoffice.Как добавить Fastreport?Я какой то скачал.Ну его в делфи нету=(

[VaheN]

[eval]

Ну что-ж, картинка красивая, только на ней какое-то старое УГ.

А сказать то чего хотели?

[VaheN]

Печать настроить.Не могу не где найти.Чтобы на кнопку открывался word, Exel или Openoffice, либо сразу на печать таблица шла хотя бы.Я учусь=(

[eval]

Так это код писать надо.
Надо сначала импортировать соотв. библиотеку типов.
Потом с ее помощью запросить у системы сом объект, создать документ, запихнуть в него ваши данные, и вот тут уже можете либо сразу печатать, либо просто открыть его.

Чего-то тут не понятно изложил?