Veri Tabanına Kayıt Yaparken Yazdırma

[bünyamin68]

Arkadaşlar hayırlı akşamlar projemde sona yaklaştım çok şükür Delphican üyeleri sayesinde. Bir yerde takıldım şimdi Kayıt yaparken belirli şablondaki fişi nokta vuruşlu yazıcıdan çıktısını almam gerekiyor.

Örneğin araç daraya giriş yaptı 1. kaydı alındı, araç dolup geldi 2. tartıma girdi gerekli bilgiler girildi ve kaydet butonuna basılınca  aracın giriş çıkış tarihi ve saati, plaka numarası dara ağırlığı 2. ağırlık ve net ağırlık bilgisini barındıran bir fiş yazdırmasını istiyorum bunu nasıl yapabilirim. Yardımlarınız için şimdiden teşekkür ediyorum.

Raporlama aracı olarak quickreport kullanıyorum ve fiş şablonum hazır.

[enigma]

Nokta vuruşlu yazıcı ile çalışan çok sayıda müşterim olduğundan, Bu benim uzmanlık alanım
Artık LPT (Paralel) port yok. Bu yüzden yazıcının USB ile bağlamanız lazım. Bunu yapabilmeniz için öncelikle nokta vuruşlu yazıcının driverının Windows'ta yüklü olması lazım. Daha sonra bu yazıcıyı paylaşıma açmanız gerekiyor. Bundan sonrası kolay.
Kullanacağınız komut (MS-DOS üzerinden) "Net Use" komutu. Bunun için bir .bat dosyası yapmanız gerekiyor. Bu dosyanın içine şunu yazmanız gerekiyor;

Başlat>Çalıştır’a cmd yazıp tamama tıklayın.
C:\>net use lpt1 \\bilgisayar_adi\yazici_paylasim_adi

Networkteki bilgisayar adını ve yazıcı paylaşım adını doğru yazdıysanız,
Komut başarıyla tamamlandı diyecektir.

Komutun düzgün olarak çalıştığını görmek için
C:\>net use

LPT1 için oluşturulmuş olan kaydı silmek için
C:\>net use lpt1 /delete

---

Delphi tarafında nasıl yazdıracağınızı tarif etmeyi unuttum.

Bir tane TextFile açmanız gerekiyor.

Var F: TextFile;

Begin
assignFile(F, 'Lpt1'); ReWrite(f);
writeln(F, 'Bu yazı nokta vuruşludan basılır.');
CloseFile(F);
End;

[bünyamin68]

Sayın Enigma Hocam kusura bakmayın adınızı bilmediğim için böyle hitap etmek zorunda kaldım. Cevabınız için teşekkür ediyorum ama fiş içeriği nasıl yazdıracağım ya da fiş şablonunu nasıl hazırlayacağım bunu bilmiyorum yazıcıcı olayında sıkıntı yok fişte olması gereken bilgiler
Aracın Giriş çıkış tarihi ve saati Plaka no Alıcı firma Malın cinsi Satıcı firma varsa açıklama ve 1.Ağırlık 2. Ağırlık,Net ağırlık bilgisi bunların kaydı yapılıyor ama yapılırkende fiş yazdırması gerekiyor. Bilgiler mevcut ama yazıcı çıktısı almam gerekiyor. Bunu beceremedim.

[enigma]

Yazıcıyı "LPT1" adındaki bir text dosyası gibi açtıktan sonra writeln(F, 'ne istiyorsan yaz');
burada satır atlamak için, Writeln(F); yazman yeterli. Boşluk bırakmak için Writeln(F, '':20); // 20 karakter boşluk bırak demek
sonra wirteln(F, ...) diye kullanacaksınız. Çok basit aslında.

---

Fiş üzerinde neyin nereye yazdırılacağını bu şekilde ayarlamanız gerekiyor.

[mrmarman]

Merhaba.

Size pratik bir yöntem önereceğim.

(*) Boş bir delphi projesi açın ve bir forma bir adet TMemo koyun.
(*) Bu Memo'nun Font name : "Courier New" olsun. Bu font tipi aynı nokta vuruşlu bir yazıcı gibi eşit width ölçüsünde karakterler sunar. mesela A ile I aynı en ölçüsünde olacaktır.
(*) Bu Memoya satır satır, fişe yazılacak içeriği metin satırı olarak girin ve hizalamayı kontrol edin.
(*) Her satırın uzunluğu, sürekli formunuz fiş olduğuna göre olsa olsa A4 enindedir, draft mode standart 10cpi büyüklüğünde yazılacağını düşünerek satırdaki toplam boşluklar dahil 80 karakterden uzun karakter olmasın. Gerekirse ikinci satıra hizalansın.
(*) Şablonunuzu bu şekilde oluşturduktan sonra nasıl Memo1.Lines.Add('lşlkşlkşlkşl') deyip ekliyorsanız, kendi projenizde WriteLn(F, 'hhhlkl') şeklinde yazıcıya gönderebilirsiniz.


EK :
bir de satırları nasıl formatlıyorsunuz onu yazayım tam olsun.

var
  Satir : String;
begin

  Satir := Format('Tarih : %-10s %-15s Plaka : %-15s Fisno : %.10d', [ DateToStr(now), TimeToStr(now), '06 BV 7200', 10 ]);
  Memo1.Lines.Add( Satir );
  Memo1.Lines.Add( Format( '(Satır Uz. %d)', [ Length(Satir) ] ) );

  Satir := Format('Dara  : %4.2f kg. %14s Net Ağırlık : %4.2f kg.', [ 2000.00, '', 4000.00  ]);
  Memo1.Lines.Add( Satir );
  Memo1.Lines.Add( Format( '(Satır Uz. %d)', [ Length(Satir) ] ) );

end;

[mcuyan]

Merhabalar
Hocam sorunuzu net anlamadim ben. Dotmateix yazicidan nasil yazilacagini mi soruyorsunuz? Yoksa son kayit eklendiginde otomatiik yazdirmasini mi istiyirsunuz bir trigger gibi bi nesne yada programcikla?

[mustafaozpinar]

(18-01-2021, Saat: 19:10)bünyamin68 Adlı Kullanıcıdan Alıntı: Arkadaşlar hayırlı akşamlar projemde sona yaklaştım çok şükür Delphican üyeleri sayesinde. Bir yerde takıldım şimdi Kayıt yaparken belirli şablondaki fişi nokta vuruşlu yazıcıdan çıktısını almam gerekiyor.

Örneğin araç daraya giriş yaptı 1. kaydı alındı, araç dolup geldi 2. tartıma girdi gerekli bilgiler girildi ve kaydet butonuna basılınca  aracın giriş çıkış tarihi ve saati, plaka numarası dara ağırlığı 2. ağırlık ve net ağırlık bilgisini barındıran bir fiş yazdırmasını istiyorum bunu nasıl yapabilirim. Yardımlarınız için şimdiden teşekkür ediyorum.

Raporlama aracı olarak quickreport kullanıyorum ve fiş şablonum hazır.

Selamlar,
FastReport kullanırsanız, Matrix yazıcılar için düzenleme yapabiliyorsunuz. Ya da ücretsiz olarak ZReports bileşen setini kullanabilirsiniz.

[bünyamin68]

(19-01-2021, Saat: 03:05)mcuyan Adlı Kullanıcıdan Alıntı: Merhabalar
Hocam sorunuzu net anlamadim ben. Dotmateix yazicidan nasil yazilacagini mi soruyorsunuz? Yoksa son kayit eklendiginde otomatiik yazdirmasini mi istiyirsunuz bir trigger gibi bi nesne yada programcikla?

Evet dediğiniz gibi son kayıt eklendiğinde yazdırılmasını istiyorum ama belirli bir fiş şablonuyla.galiba ben çok basit sorulacak soruyu karmaşık hale getirmişim o yüzden cevap veren diğer arkadaşların affına sığınıyorum.

[mcuyan]

Mantık olarak öyle yapın: Yeni kayıt okeylendiğinde en son işlemde: o kaydın fiş nosunu tutulduğu bir tabloya yazınb.. yazacağınız ufak bir programcık (Servis) ise o tabloyu kontrol etsin. yeni kayıt geldiğinde yazdırsın. Yazdırma başarılı ise yazdırıldı diye tablodaki ilgili kaydı update etsin. Sonırım tam istediğiniz mantık bu

[bünyamin68]

(19-01-2021, Saat: 13:07)mcuyan Adlı Kullanıcıdan Alıntı: Mantık olarak öyle yapın: Yeni kayıt okeylendiğinde en son işlemde: o kaydın fiş nosunu tutulduğu bir tabloya yazınb.. yazacağınız ufak bir programcık (Servis) ise o tabloyu kontrol etsin. yeni kayıt geldiğinde yazdırsın. Yazdırma başarılı ise yazdırıldı diye tablodaki ilgili kaydı update etsin. Sonırım tam istediğiniz mantık bu

Çok teferruatlı olmasına gerek yok yazdırıldı bilgisininde tutulmasınada gerek yok bu küçük basit bir kantar programı yukarda yazmış olduğum bilgileri fişe basması yeterli benim için aslında Muharrem Arman hocam anlaşılır bir cevap vermiş ama deneme fırsatım olmadı akşam denerim inşallah.