Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Cara Membuat cetak struk di delphi ...

Ada request atau pertanyaan dari email, yang menanyakan masalah cetak struk menggunakan visual basic, dan ia menanyakan gimana kalau mencetak nya menggunakan delphi???
langsung aja buat project baru dan silahkan design seperti dibawah ini...
Design menggunakan komponen:

  • 3 buah TEdit
  • 1 ComboBox
  • 1 TMemo
  • 2 Button
Pada event tombol cetak memo ketikkan script nya untuk menampilkan hasil di memo.
  1. var jarak,jarak1,jarak2,jarak3 : String;  
  2.   
  3. jarak:='     ';  
  4. jarak1:='            ';  
  5. jarak2:='              ';  
  6. jarak3:='                ';  
  7. memo1.Clear;  
  8. memo1.Lines.Add('                            Contoh Cetak Menggunakan Memo');  
  9. memo1.Lines.Add('==========================================================');  
  10. memo1.Lines.Add(' Nama : ' +jarak2+ tNama.Text);  
  11. memo1.Lines.Add(' Usia : ' +jarak3+ tUsia.Text);  
  12. memo1.Lines.Add(' Alamat : ' +jarak1+ tAlamat.Text);  
  13. memo1.Lines.Add(' Jns Kelamin : ' +jarak+ CmbJkel.Text);  
  14. memo1.Lines.Add('==========================================================');  
  15. memo1.Lines.Add('==========================================================');  
  16. memo1.Lines.Add('                               Source : www.indrawan21.com');  

Dan Untuk script di tombol print ketikkan sbb :
  1. var f:textfile;  
  2.     i:integer;  
  3.     S:string;  
  4. begin  
  5.          button1.Click;  
  6.          S:= 'LPT1' ; 
  7.          assignfile(f,S);  
  8.          rewrite(f);  
  9.   
  10.          write(f,#27+'C'+#66+#27+#15);  
  11.   
  12.          for i:=0 to memo1.Lines.Count-1 do  
  13.          writeln(f,memo1.lines.strings[i]);  
  14.          writeln(F,'');  
  15.          write(f,#27+#18+#12+#13);  
  16.          closefile(f);  
  17.          button2.Enabled:=false;  

*Ingat, untuk deklarasi variable kalian letakkan sebelum begin...
Hasil nya sbb:

Untuk source code nya silahkan di coba sendiri download di sini Cetak struk delphi

2 Reply :

  1. erornya saya di rewrite(f); maksutnnya gmn itu mas?

    BalasHapus
  2. Kok pas klik print gak mau ngeprin ya gan?

    BalasHapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.