@simba: biarkan saja... orang malas pasti banyak ribut sendirinya... belum2 ngga' bisa... :mrgreen:

@DE: Justru dia itu org yg super rajin! :D Udah ada solusi, tinggal setting atau sedikit modifikasi aja. Tapi solusi seperti itu mungkin terlalu mudah buat dia, ecek lah, gak level. :P Makanya dia nyari yg lebih "menantang", pake install driver, akses dll, spesifik ke tipe printer tertentu, kalo perlu akses langsung hardware printernya, dan lain sebagainya. Kalo ntar ganti printer, dan harus devel ulang, itu juga gak masalah, dia kan jagoan. Kita2 ini kan masih cupu2 ceria, maunya solusi2 yg gampang2 aja. :lol:

Apalagi harus dipaksain pake OS lain, yg katanya biar support... Eh..Bru nongol kok langsung nglantur..! hehe

uh...!!!! sungguh kecewa aku pada master2 delphi disini...... TRAWPrinter adalah solusi termudah!!! kenapa ada orang pengen pinter malah di kasih komentar yang menyakitkan hati??? apakah itu sebenernya sifat2 kalian sebagai manusia IT di Indon??? MEMALUKAN !!!! @ esafm : lanjutin terus usaha anda!! satu yang daku minta : jangan tergantung dengan komponen buatan orang jika kita bisa!! SEMANGAT BRO!!! driver nya pake "advadced printer driver for windows" --> http://www.pos.epson-europe.com/support/drivers.htm @ all : sungguh kasian orang-orang yang berkomentar miring.... apakah itu salah satu dari bentuk mendidik??? sedikit pencerahan buat esafm :

procedure TFUtama.Cetak();
var
  F: TextFile;
  s: string;
  i: Integer;
begin
  AssignFile(F, 'COM1');
  try
    Rewrite(F);
    s :='  TOKO CAHAYA   ';
    Writeln(F,s);
    writeln(F, '============================');
    for i := 0 to ListView1.Items.Count-1 do
    begin
      s := '';
      s := ' '+Copy(ListView1.Items[i].SubItems[0],1,20) +' '+ 'Rp. '+ListView1.Items[i].SubItems[1];
      writeln(F,S);
      s := ' '+'Qty '+ ' '+ ListView1.Items[i].SubItems[2]+' '+'Disc '+ListView1.Items[i].SubItems[3];
      Writeln(F,S);
      s := ' '+'Sub Total'+' '+ListView1.items[i].subItems[4];
      Writeln(F,s);
    end;
    writeln(F, '----------------------------');
    writeln(F, '----------------------------');
    s := ' TOTAL : '+ JvValidateEdit2.Text;
    writeln(F,S);
    s :=' BAYAR : ' + JVValidateEdit3.Text;
    writeln(F,S);
    s := ' KEMBALI : ' + JVValidateEdit3.Text;
    writeln(F,S);
    for i := 1 to 3 do writeln(F, '');
    s := StatusBar1.Panels[1].Text+' ';
    Writeln(F,S);
    s := ' No : '+lblNota.Caption+' '+DateToStr(DateTimePicker1.Date);
    Writeln(F,S);
    writeln(F,' ');
    writeln(F,' ');
    s :=' TERIMA KASIH ';
    Writeln(F,S);
    S :=' ATAS KUNJUNGAN ANDA ';
    Writeln(F,S);
  finally
    CloseFile(F);
  end;
end;

Edited by MOMOD: Syntax highlighter.

Bro @Arieda Tumben Dikau Ambekan Sekarang..xixxixixixxi Karena Dekat sama merapi yah jadi bawaannya ambek mlulu...Bro @Arieda Harcode itu ibarat cinta Deritanya tiada berakhir...xixixixixxi,Syukur Para delphier memberikan sumbangsih saran dan sebagainya..Yang jelas Kritikan Atau Masukan harus di tanggapi dengan kepala dingin..OK bro...Ambil Positifnya aja..

@aireda: biarkan saja... para senior ngga' usah dipedulikan :mrgreen: sedikit catatan saja: tidak hanya pembuat thread ini atau @esafm yg pernah menemui masalah semacam ini... orang-orang terdahulu (para senior) saya yakin telah pernah menghabiskan waktu yg ngga' sedikit untuk menemukan solusi atas hal tsb... mungkin yg dirasa pembaca senior adalah I give you a way & some clue working with line printers, a simple way (universal) printing through WinSpool, whatever the type of your printer --> from my 'hard' experience :mrgreen: so... tidak pernah ada larangan kepada siapapun, membuat apapun dan dengan cara apapun! tapi kalau anda bertanya, kami (@simba) memberi solusi tanpa anda mengkaji lebih lanjut terhadap solusi yg diberikan... sungguh kami akan merasa kecewa (al-keyboard: v1.1), apalagi kalau masih dibahas berlarut-larut tanpa ada rokok & kopi menemani... :mrgreen:

Iya tuh, para master emang gitu. :P Org2 disini emang aneh. Ada yg minta solusi, dikasih clue gak mau, maunya langsung source code. Eh, begitu dikasi source code yg udah tinggal pake, bahkan VCL dgn fitur lengkap, gak mau juga, malah minta clue yg lebih sulit. Kalo didiemin, gak dikasi jawaban, masih salah juga, dibilang sombong, dlsb. Serba salah deh. Lah, terus maunya apa coba? :P @Aireda: Kalo printernya gak konek lewat COM1, misal lewat USB, atau malah adanya di komputer lain (shared printer), gimana? Yakin source code mu bisa jalan? :P

coba pakai solusi ini: ZReport 2.0 is a visual text report designer and generator, native VCL. Created to produce reports for matrix printers. Key features: - produces text output with adjustable printer escapes; - works through Windows print spooler; - unlimited master-detail and even multi-dataset reports; - fine pagination etc. http://delphitutorial.info/zreport-20.html#more-91

@DE: Setuju, pake ZReport juga bisa. Aku juga pake itu untuk laporan2 yg besar. FYI, ZReport juga pake mekanisme printing yg sama, lewat spooler, bukan akses port. Eh, itu VCL juga loh, ntar diibilang solusinya terlalu mudah. :P Tapi, menurutku, untuk print struk/nota yg cuman beberapa baris aja, di kertas kecil pula, ZReport terlalu bloated. Ibarat bawa telur dua biji pake truk, sayang "space" kosong yg gak terpake. :D

di fastreport 4 sudah bisa unlimited width dan unlimited height, jadi cocok untuk print struk. untuk kecepatan belum coba tapi mestinya lebih cepat pakai raw printing.. namanya saja raw..