Projenizde seçtiğiniz bir dosyayi yazıcıya göndermeyi göstereceğim :

Öncelikle delphi 8 .Net Framework v1.1 yuklu olması gerekmektedir.



1- Yeni bir proje açalım ve bir buton ekleyelim.



2- implementation altına sunlar ekleyin ...

var

Dosya_icerigi:string;

3-PrintDocument ve Opendiledialog nesnelerini ekleyin.

4- Tusun kodu :

var

Sonuc:System.Windows.Forms.DialogResult;

Dosya_adi:String;

Dosya:FileStream;

Okuma:StreamReader;

begin

Sonuc:=OpenFileDialog1.ShowDialog;

if convert.ToString(sonuc)='OK' Then

begin

Dosya_adi:=openfiledialog1.FileName;

Dosya:=filestream.Create(Dosya_adi,FileMode.Open,F ileAccess.Read);

Okuma:=StreamReader.Create(Dosya);

Dosya_icerigi:=Okuma.ReadToEnd;

PrintDocument1.Print;

end;

5- PrintDocument'in PrintPage Eventine gelip su kodları ekleyelim

Var

Yazi_tipi:System.Drawing.Font;

Font_ailesi:FontFamily;

Stil:FontStyle;

Renk:SolidBrush;

begin

Font_ailesi:=FontFamily.Create('Arial');

Stil:=FontStyle.Bold;

Renk:=SolidBrush.Create(Color.Black);

Yazi_tipi:=System.Drawing.Font.Create(Font_ailesi, 11,Stil);

e.Graphics.DrawString(Dosya_icerigi,Yazi_Tipi,Renk ,50,50);

Artık projemizi çalıştırabiliriz..

Saygılarımla...