20-11-2019, Saat: 15:59
(Son Düzenleme: 20-11-2019, Saat: 22:03, Düzenleyen: SimaWB.
Sebep: başlık değişikliği
)
Merhaba;
Genelde databaseden verileri excele aktarırdım durum gereği word aktarmam gerekti.
Bir kaç gündür bu konuda araştırma yapıyorum saçma sapan kaynakların içinden naçizane bilgime göre bir şeyler yaptım.
Bu konuda ileride birilerine ihtiyaç olabilir diye, ayrıca paylaşmak istedim.
Genelde databaseden verileri excele aktarırdım durum gereği word aktarmam gerekti.
Bir kaç gündür bu konuda araştırma yapıyorum saçma sapan kaynakların içinden naçizane bilgime göre bir şeyler yaptım.
Bu konuda ileride birilerine ihtiyaç olabilir diye, ayrıca paylaşmak istedim.
procedure TForm1.BtnWordClick(Sender: TObject); var Word: OleVariant; begin try Word := CreateOleObject('Word.Application'); except Exit; end; FDQ := TFDQuery.Create(Nil); try begin FDQ.Connection := FDConnection; FDQ.Active := False; FDQ.Close; FDQ.SQL.Clear; FDQ.SQL.Add('Select * From USERS'); FDQ.Prepared := True; FDQ.Open; if Not FDQ.IsEmpty then begin Word.Visible := True; Word.Documents.Add; Word.Caption := 'BG'; Word.Selection.PageSetup.Orientation := 0; // Yatay mı? dikey mı? Word.Selection.PageSetup.LeftMargin := 10; // Sol kenar Word.Selection.PageSetup.RightMargin := 10; // Sağ kenar Word.Selection.PageSetup.TopMargin := 20; // Üst kenar Word.Selection.Font.Name := 'Arial'; Word.Selection.Font.Size := 12; Word.Selection.Font.Bold := True; Word.Selection.TypeText(FDQ.FieldByName('USERNAME').AsString); Word.Selection.TypeParagraph; Word.Selection.TypeParagraph; Word.Selection.Font.Name := 'Arial'; Word.Selection.Font.Size := 11; Word.Selection.Font.Bold := False; Word.Selection.TypeText(FDQ.FieldByName('USERPASS').AsString); end; end; finally // Word.Quit; // Word := Unassigned; FDQ.Free; end; end;