Epson pos yazıcıdan fiş yazdırma...

[Biltes]

İyi akşamlar arkdaşlar;

Uzun bir zamandan sonra yine formumuza döndüm. Bazı nedenlerden dolayı formda olamadım. Kusura bakmayın...

Arkdaşlar şimdi ise bir sorunum var EPSON TM-U220 bir fiş yazıcımız var. yazdığımız bir market programına bu fiş yazıcıyı entegre etmem gerekiyor. Bu cihazın delphi'den nasıl kullanabileceğini bilen yada elinde örnek kod olan acaba paylaşabilirmi? Konu hakkında bilgisi olan arkdaşlar yardımcı olabilirlerse çok memnun olurum.

Allah hepinizin işlerini rast getirsin...

[zero_g]

uses Printers;
var
Dosya : System.Text;
Yazi : String
begin
AssignPrn(Dosya);
ReWrite(Dosya);
Yazi := 'Merhaba Dünya ';
WriteLn(Dosya,Yazi);
Yazi := 'Yine Merhaba Dünya ';
WriteLn(Dosya,Yazi);
System.CloseFile(Dosya);
end

[Biltes]

Cevap için çok tşk ederim çok işime yaradı. Emeğinize sağlık.
Şimdi ise sorunum şu bu cihazda fişi kestikten sonra cihazın otomatik olarak fiş bitiminde kağıdı kesmesi gerekiyor ama bu iş kodlama ile yapılıyormuş. (Bu arada cihazın otomatik fiş kesme özelliği var.) Acaba konu hakkında bilgisi olan arsa yardımcı olabilir mi acaba?
Yardımlarınız için şimdiden çok tşk ediyorum arkadaşlar...

[zero_g]

kod yazmana gerek yok
sen printerin sürücüsünü yüklerken partial cut seçeneğini yükle yazma işlemi bitince otomatikman kağıdı keser otomatik kesmiyorsa aynı ornekteki yazdırdığın yazi değişkenine kitapcığındaki escape kodunu
yazman gerekiyor yani yazi:=#27+#50 vs bu kodu yazdırdınmı otomatik kesecektir iyi çalışmalar

[rsimsek]

İyi akşamlar arkdaşlar;

Uzun bir zamandan sonra yine formumuza döndüm. Bazı nedenlerden dolayı formda olamadım. Kusura bakmayın...
...

Hocam tekrar hoşgeldin.. umarım işlerin yolundadır

[Biltes]

Recep hocam çok tşk ederim.

Bazı sağlık problemleri nedeni ile forumda olamadım ama kısmetse artık yine buralardayım. Elimden geleni yapamaya hazırım.

Tüm arkadaşlara çalışmalarında başarılar diliyorum..

[acimen]

Merhaba, benim de yazdığım bir market-cafe programım var aynı işlemleri ben de yaptırıyotum. Arkadaşın dediği gibi fiş yazıcı sürücü yüklerken Partical Cut seçeneğini seçersen otomatik keser. Ayrıca fişin isteğin koordinatlarına bişiler yazdırabilirsin benim yazdığım fonksiyon şöyle işine yarar inşallah kolay gelsin.

procedure fis_yaz_1;
var
i : byte;
st, at : string;
Begin
i:=1;
With Printer Do
Begin
BeginDoc;
Canvas.TextOut(20, 0,cs1+#10+#13);
Canvas.TextOut(20, 25,cs2+#10+#13);

st:='Kasa : '+kasa;
if Pos('Ç',st)>0 then While Pos('Ç',st)>0 do st[Pos('Ç',st)]:='C';
if Pos('İ',st)>0 then While Pos('İ',st)>0 do st[Pos('İ',st)]:='i';
if Pos('Ş',st)>0 then While Pos('Ş',st)>0 do st[Pos('Ş',st)]:='S';
if Pos('Ü',st)>0 then While Pos('Ü',st)>0 do st[Pos('Ü',st)]:='U';
if Pos('Ğ',st)>0 then While Pos('Ğ',st)>0 do st[Pos('Ğ',st)]:='G';
if Pos('Ö',st)>0 then While Pos('Ö',st)>0 do st[Pos('Ö',st)]:='O';
if Pos('ç',st)>0 then While Pos('ç',st)>0 do st[Pos('ç',st)]:='c';
if Pos('ş',st)>0 then While Pos('ş',st)>0 do st[Pos('ş',st)]:='s';
if Pos('ü',st)>0 then While Pos('ü',st)>0 do st[Pos('ü',st)]:='u';
if Pos('ğ',st)>0 then While Pos('ğ',st)>0 do st[Pos('ğ',st)]:='g';
if Pos('ö',st)>0 then While Pos('ö',st)>0 do st[Pos('ö',st)]:='o';
at:='Fis No : '+cafe_no;
Delete(st,42-length(at),50);
While length(st)<(42-length(at)) do st:=st+' ';
Canvas.TextOut(20, 50,st+at+#10+#13);
Canvas.TextOut(20, 75,'__________________________________________'+#10+#13);
Canvas.TextOut(20,100,'URUNLER Miktar'+#10+#13);
Canvas.TextOut(20,125,'__________________________________________'+#10+#13);
While Not frm_cafehesabal.dbq_yazdir.Eof Do
Begin
st:=frm_cafehesabal.dbq_yazdirStok_Adi.Value;
if Pos('Ç',st)>0 then While Pos('Ç',st)>0 do st[Pos('Ç',st)]:='C';
if Pos('İ',st)>0 then While Pos('İ',st)>0 do st[Pos('İ',st)]:='i';
if Pos('Ş',st)>0 then While Pos('Ş',st)>0 do st[Pos('Ş',st)]:='S';
if Pos('Ü',st)>0 then While Pos('Ü',st)>0 do st[Pos('Ü',st)]:='U';
if Pos('Ğ',st)>0 then While Pos('Ğ',st)>0 do st[Pos('Ğ',st)]:='G';
if Pos('Ö',st)>0 then While Pos('Ö',st)>0 do st[Pos('Ö',st)]:='O';
if Pos('ç',st)>0 then While Pos('ç',st)>0 do st[Pos('ç',st)]:='c';
if Pos('ş',st)>0 then While Pos('ş',st)>0 do st[Pos('ş',st)]:='s';
if Pos('ü',st)>0 then While Pos('ü',st)>0 do st[Pos('ü',st)]:='u';
if Pos('ğ',st)>0 then While Pos('ğ',st)>0 do st[Pos('ğ',st)]:='g';
if Pos('ö',st)>0 then While Pos('ö',st)>0 do st[Pos('ö',st)]:='o';
While length(st)<37 do st:=st+' ';
at:=frm_cafehesabal.dbq_yazdirmiktar.text;
While length(at)<5 do at:=' '+at;
Canvas.TextOut(20,125+(25*i),st+at+#10+#13);
frm_cafehesabal.dbq_yazdir.Next;
inc(i);
End;
Canvas.TextOut(20,125+(25*i),'__________________________________________'+#10+#13);
inc(i);
st:=DateToStr(Date)+' '+TimeToStr(Time);
st:=st+' Code5 Soft.03522214077';
Canvas.TextOut(20,125+(25*i),st);
EndDoc;
End;
End;

[Biltes]

Hocam cevap için çok tşk ediyorum gerçekten çok işime yaradı allah cümlenizden razı olsun.
Diğer konu olan otomatik kesme olayı ise sürücüyü zaten yüklerken Partical Cut seçeneğiğini seçerek kurdum ama fiş bitiminde kesmiyor maalesef.